: ORDINATEUR 
INDIVIDUEL 



L ORDINA TEUR INDIVIDUEL 




jeux, enseignement, professionnels, utilitaires, etc. 

et un tableau comparatif de tous les Basic 
pour pouvoir utiliser les programmes sur : 

Alice, Apple, Atari 400, Atom, BBC, Commodore 64, DAI, Drago»3Brftector, Lynx, 
MZ 80 A, Oric, PET/CBM, TO 7, Tl 99, TRS 80 mod. 1 et 3, Vie 20, ZXS1, ZX Spectrum 

numéro spécial hors série n° 54 bis 

Canada : 5.95$C-Belgique : 284FB-S"uisae : 11FS 35 F 
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DES BONS POINTS POUR LA BASE 
DE DONNÉES dBASEII d'ASHTON TATE 



dBASE II est un prodigieux outil de programmation qui 
vous permet de réaliser vos programmes de gestion 
beaucoup plus rapidement qu'avec des langages tradi- 
tionnels. 

AvecdBASEII vous créez vosgrilles de saisie, ouvrez des 
fichiers relationnels, réalisez des tris et sélections, 
formatez vos listages à la demande. Vous réalisez ainsi 
en quelques jours des programmes se présentant comme 
ceux des grands systèmes et dont l'étude vous aurait 
demandé des mois. 

dBASE II est interfaçable directement a des logiciels 
graphiques pour représentation en couleur à l'écran et 
imprimante ou table traçante des courbes, barres, ca- 
memberts relatifs au contenu de vos fichiers dBASE II. 
dBASE II est disponible sous CPM/80, CPM/86 et 
MS-DOS. Les formats sont 8 pouces simple face/simple 
densité, visiotexte IBM. 5 pouces 1/4 : ordinateur per- 
sonnel IBM, SIRIUS, ZENITH, DIGITAL, TEXAS, etc.. 
dBASE II est livré avec le manuel d'utilisation, un guide 
de formation et les messages d'écran en Français. 
dBASE II est livré avec une disquette d'essai limitée à 
1 5 enregistrements. Si sous 30 jours vous n'êtestoujours 
pas convaincu, nous vous rembourserons intégralement 
le produit. 

Le guide de formation de dBASE 1) est disponible sépa- 
rément. 

Ceux qui possèdent déjà la version Américaine peuvent se 
procurer la mise à jour française de dBASEII. 
L'ÉCOLE P1GIER propose des stages de formation sur 
dBASE II (Tél. 233.44.88). 

Contactez- nous pour de plus amples informations sur 
dBASE II POURIÂFRANCE 




Graphique obtenu sur imprimante c 
le logiciel dGRAPH de FOX & GELLER rv 
pas de fonction graphique du micro-ordi 



La Commande Electronique 




nûteun 



16 Francs, chez votre marchand de journaux '-'îi^w"*.^ 
lira d'ÂbcThnbment A RETOURNER AUJOURD'HUI MEME A 

L'ORDINATEUR DS POCHE, Service Abonnements, oi si 54 

39 EUE DE LA GHAMGE AUX BELLES 73484 PARIS GEDEX 10 

Prénom 



7.RUEDESPRIAS — 
TÉL. (32) 52.54.02 



27920 SAINT-PIERRE DE BAILLEUL 
TÉLEX 1_CE 180 855 



_ Gode postal. 



Veuillez m'abonner pour 1 an à L'ORDINATEUR DE POCHE ; 

Ci-Joint mon règlement de 130 FF (Belgique : 1150 FB ; Suisse : 40 FS ; autres pays : 170 FF) 

(Tarif par avion: Afrique francophone (sauf Zaïre): 205 FF; autres Afrique, Amérique: 355 FF; Asie, 0céanie:i 

Référence 1 07 du Servi Ce- lecteurs (page 1 72) Dossier Programmes n-'sïbis 
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UN INTERPRETE UNIVERSEL. 
15 



Parlez-moi Basic. Nombre d'ordinateurs par- 
lent Basic, et pourtant ils ne s'entendent pas : 
chacun parle son patois. Aussi nous vous pro- 
posons de passer à la loupe cent instructions 



sur dix-neui ordinateurs parmi les plus répan- 
dus. Ce tableau comparatif vous permettra 
d'adapter iacilement les programmes d'un or- 

oina:eur à l'autre. 



JEUX.. 



Rédaction 

vente 

publicité 

France et Etranger : 
39 rue de la Grr-r-.c-e- 
aux-Belles. 75484 
Paris Cedex 10. 
Tél.:(01)238 66l0 
Télex : LORDI 215 
105FEDITEST 



HgcTiot'on et publi- 
cité: 3 avenue do l.i 
Ferme-Rose. B-1 180 
Bruxelles. 

Tél. : (2) 345 99 10. 
Vente et abonne- 
ments : Scumi. on. 
28 av. Massenel. R- 
1 180 Bruxelles. 
Tél. : (2)344 19 23 



26 
31 

32 
35 
36 
41 

47 
51 
53 



Suisse ■ 27 route '. 
Grand-Mont, Ct 
1052 Le Mont-su 
Lausanne. 
Tél.: (21) 32 61 77. 



Le Logotron : une nouvelle science qui joue 
avec les mots. Rendez votre ordinateur indivi- 
duel intarissable. 

Nous avons trouvé le monstre du Loch 
Ness ! Mais si ! Cette grande première fran- 
çaise laisse le monde entier abass'ourdi. Vou- 
lez-vous jouer à le retrouver avec nous ? 
Jouez au morpion. Un jeu injustement dé- 
laissé, mais après tout aussi beau que les 
échecs ou les dames, le go ou Othello. 

Le compte est bon. Pour lancer cette petite 
phrase lors de l'émission télévisée bien 
connue. 

Le supporter de football. Gardez en mé- 
moire l'ensemble du championnat grâce à ce 
programme et à ses fichiers. 

Empilez des cubes : les entants résoudront 
ce problème bien plus vite que le programme 
que nous vous proposons, mais ce dernier 

présente bien des possibilités d'amélioration. 

Parcourez les méandres d'Isola -. un jeu 

simple à apprendre, mais gagnerez-vous 
contre votre ordinateur ? 
Le casse-brique de votre ordinateur tient en 
quelques lignes ; un jeu video où vous aurez du 
mal à battre vos entants. 

Donjons et dragons. Découvrez les jeux de 
rôle avec ce programme qui vous fera frémir. 



58 

61 
64 

67 
71 

75 
79 
82 
84 



Construisez des alexandrins automatique- 
ment grâce à ce programme. Tous ces vers 
n'auront pas un sens évident : comme les 
oracles, à vous de reconstituer le sens caché. 

Voulez-vous jouer au tennis ? Votre ordina- 
teur se charge de vous fournir le court, les 
balles et les raquettes. 

Voyage en Crète. Perdu dans le labyrinthe, 
Thésée ne devait affronter qu'un seul mino- 
taure. Ici vous serez seul, les minotaures seront 
légion et le labyrinthe invisible : un jeu terrifiant. 

Une course automobile sur votre écran. 
Vous n'a'uriez pas réussi votre permis de 
conduire... en moins de 4 986 leçons. 
Lewis Caroll ou comment la logique rejoint le 

merveilleux. Atmosphère, personnages et 
décor de cette aventure-jeu informatique sont 
authentiques, puisqu'ils sont humains. 
Le jeu d'Awalé est à l'Afrique ce que le Go 
est au Japon, ou les échecs à l' Europe. 

Le l-Ching ou Livre des changements cor- 
respond, dans la philosophie Zen, a nos ora- 
cles. Raffinons le procédé avec un ordinateur. 

L'alunissage est une manœuvre délicate. 

Mais ici vous ne courrez aucun risque. 

Panique au fond des mers. La torpille tra- 
verse sans dommage l'écran de votre ordina- 
teur, et pourtant... 



APPLICATIONS PROFESSIONNELLES. 



1 J A Vérifiez vos chèques. S'ifvous arrive parfois 

I AU de recevoir de nombreux chèques, un pro- 
1 - •* ~ mm ™ nnur nQ pas craindre les fautes de 
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Calculez vos amortissements. Déterminez 
les montants des amortissements sur les maté- 
r ie's que vous avez acheté. 



iil Les files d'attente, un problème familier, quo- 
I AQ tidien presque. Pour les prévoir et s'organiser 
en conséquence. Ce programme de simulation 
prend pour exemple un péage d'autoroute. Il 
peut aussi s'appliquer à des siluar.on tulles que 
le passage aux caisses d'un supermarché, les 
transports de marchandises, la gestion de 
stocks, etc. 



APPLICATIONS DOMESTIQUES.. 



ICA Intéressez-vous à vos intérêts. Un pro- 
I *%A gramme pour déterminer 'es taux dlntere'. que 

■ w vous « offrent » les organismes financiers. 

m pa La trésorerie familiale. L'ordinateur excelle 

I 3 J dans leï calculs : il s de ici à gérer les dépenses 
et le budget de la famille. 

■ PPjUn calendrier perpétuel. Bien utile pour as- 
| / socier a chaque date le jour de la semaine 
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Le temps, c'est de l'argent. Faites vous aider 

par votre ordinateur pour lenir votre agenda. Il 

a de la mémoire, lui. 
| m m pour organiser votre tournoi, ne perdez pas 
| Q | la boule, même si vous avez de nombreux 

t 

1 # A Autour de la corbeille. Pour ceux qui maïlri- 

I Ofc sent bien ce C|J ss passe â la BoLlrse ' 9érez un 
portefeuille de titres. 




0^ O^^Qu^l^TLltyL^ 
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93 

95 

98 
101 
105 
111 

114 
115 



Mettez de l'ordre dans vos données. Vous 

devrez certainement, à un moment ou a un 
autre, classer vos données ; par exemple dans 
l'ordre alphabétique. 

Imprimer des étiquettes est une tâche sou- 
vent fastidieuse. Pourquoi ne pas vous faire 
aider d'un ordinateur ? 

Un programme saisissant qui vous permet- 
tra d'assurer la qualité des données que vous 
utiliserez. 

Gagnez de la place et du temps : il vous 
suffit, pour cela, de faire varier la longueur de 
vos enregistrements. 

Pour gérer des fichiers, il faut connaître la 
technique des listes linéaires doubles que vous 
présente ce programme. 
Découvrez les vertus de l'accès indexé. 
Accès séquentiel ou accès direct ? L'accès 
indexé, troisième voie, combine les avantages 
des deux méthodes. 

Recherche séquentielle dans une table. 

Une solution efficace si la rapidité n'est pas ie 
critère le plus important. 
Recherche dichotomique. Une méthode 
pour retrouver rapidement un élément dans 
une table ordonnée. 
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Pour manipuler des caractères, il est utile de dispo- 
ser des six sous-programmes que nous vous présen- 

Con naissez- vous les listes inversées ? En complé- 
ment à l'article de la page 1 11, pour en savoir plus sur 
l'accès indexé. 

Ne laissez pas entrer n'importe quel octet dans vos 
fichiers. Deux sous- programmes pour entrer des nom- 
bres ou des caractères en les vérifiant à la saisie. 

Au commencement d'un programme est le menu. 

Le mieux est de disposer d'un programme standard et 
de l'adapter. 

Réalisez la fusion ou l'intersection de deux tables. 
Vous aurez besoin de ces méthodes pour comparer ou 
grouper deux fichiers. 

Pour avoir des programmes lisibles, il suffit de 
demander à votre ordinateur de faire un effort de 
présentation. 



Evitez les destructions de fichier. Une solution 
simple : un fichier différentiel. 



ENSEIGNEMENT. 



O tempora, o mores ! Ne voilà-t-il pas que les 

ordinateurs se mettent à aider l'apprentissage 
des déclinaisons ? Grâce à ce programme. 
( retrouvez votre latin. 

Les mathématiques à l'école. Les calculs de 
multiples et de diviseurs sont des opérations 
faciles : un programme utilisé par un ensei- 
gnant pour ses cours. 

La multiplication en Egypte. Il y a plus de 
deux mille ans, on utilisait déjà le système 
binaire. Apprenez à multiplier avec et 1 . 

Le calcul mental : un jeu d'enfant. Pour 

vous essayer à un jeu ancien : la multiplication. 



129 

131 

133 
135 
137 



MATHEMATIQUES.. 



87 
90 



Représentez vos données avec des histo- 
grammes. Un dessin vaut mieux qu'un long 
discours. Représentez vos données plutôt par 
des graphiques que par des chiffres. 



^ m m e r o 
^^ spécial 
hors-série a été 
réalisé à partir 
d'articles déjà 
publiés dans les 
numéros anté- 
rieurs de L'Or- 
dinateur indivi- 
duel. 

Le lecteur ne 
manquera pas 
de remarquer 
que, durant sa 
longue vie {si, 
cinq ans déjà !), 
L'Ordinateur In- 
dividuel a évolué et que la maquette initlaJp a 
sub, diverses modifications. QuTne s'aSfp 
pas a ces détails car .< qu'importe ^teclT». 
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irammesn°54bl 



Le grand réseau national 
de micro-ordinateurs familiaux 
et consommables informatiques 



A ATARI 



IftAJUSÇULE: 



Canon 

Ç s commodor 
SHARP 

, Texas 



A ATARI 




Un spécialiste 'Majuscule» vous attentés de chez vous 



Aujourd'hui aucun domaine n'est plus évolutif que celui des micro-ordinateurs familiaux. Les modèles se suivent à un rythme élevé appor- 
tant sans cesse de nouvelles améliorations voire des innovations déterminantes. Pourvous guider dans votrechoix et vousaiderà vous pro- 
curer l'appareil le mieux adapté à l'usage que vous lui destinez, faites confiance aux spécialistes MAJUSCULE de votre région 
MAJUSCULE, c'est le seul réseau aussi étendu de micro-ordinateurs familiaux et de consommables informatiques. 
L importance de ce groupe, plus de cent distributeurs en France, lui permet de vous proposerun très large choix de grandes marques Vous 
y trouverez l'accueil, le conseil et le sérieux des spécialistes. Choisissez MAJUSCULE près de chez vous. 

MAJUSCULE, le réseau conseil des produits de pointe 




Demandez notre catalogue 
consommables informatiques. 



Référence 105 du service-lecteurs (page 172) 



L'Ordinateur Individuel 



PSI : LESlBII 

DELA 

DEC 
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PROMOTION 



APPLE Jle 64 K - Clavier Azerty 
+ moniteur Philips + floppy 




Mlcro-ordlnateur d'Initiation. 
Langage BASIC. 9 couleurs. Mé- 
moire 8 Ko ROM. Connectable 
sur tout téléviseur. Avec livre - 

9U & 1.195FU.C. 



2990 F 
LYNX 48 K 



ORIC I 



Sinclair ZX 81 
580 F 




H0« 



tfl* 



At>* 



€$S* 



ORIC 48 K + manuel fr. 

+ Cordon Peritel 

+ Imprimante 4 couleurs 



-50sa£ 

4100F 



6 7, cours Lieutaud 13006 MARSEILLE 

Boutique .42.99.42 S.A.V. .78.92.75 

Boutique à Toulon 
270, Bd. Foch . Immeuble Le Concorde -tsm i ■ r\*t 
Tel 94/ 93.11.20 TOULON 



Complétez 

votre 

information 

grâce 

au 

service 

lecteurs 

en 

utilisant 

I la 

carte 

ci-contre 



Dossiar Programmes n° 54 bis déc. 1983 
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(Cerclez 

/es numéros des 

différentes 

informations 

qui vous 

intéressent) 



BULLETIN DECOMMANDE 

Pour vous abonner 

(pour commander des numéros) 



m 



L ORDINATEUR 
lj INDIVIDUEL 



le magazine de l'informatique pour tous 

utilisez cette carte 

(Voir au verso) 



|'| i: ORDINATEUR 
II— lj INDIVIDUEL 

SERVICE PETITES ANNONCES 

39 rue de la Grange-aux-Belles 

75484 Paris Cedex 10 
FRANCE 






L'ORDINATEUR INDIVIDUEL (service abonnement) 
39 rue de la Grange-aux-Belles, 75484 Paris Cedex 10 

□ Je souscris un abonnement pour un an (11 numéros) à L'ORDINATEUR INDIVI- 
DUEL (Tarif France : 198 FF TVA 4 % incluse ; Belgique : 1 650 FB + 100 FB de 
port ; Etranger ou Etudiant : voir ci-contre). 

D Je désire recevoir les numéros antérieurs suivants. (Prix d'un numéro France: 22 FF; 
Etranger : voirni-r.nntm.) ___ __ 

par: chèque postal D chèque bancaire D d'un montant de , 



M/Mme/Mlle . 
Profession _ 
Adresse 



La photocopie de ce bulletin rempli constitue ui 
règlement effectué. Aucune facture ne sera établit 

Cadre réservé à nos services 



9 pièce justificative légale du 
par nos services. 



PETITES ANNONCES GRATUITES * 

de L'ORDINATEUR INDIVIDUEL 
Complétez la grillé ci-dessous en lettres d'imprimerie en utilisant une division par lettre/signe c 
espace. En aucun cas le message ne doit dépasser les cinq lignes de 36 caractères, adresse con 
prise. Attention, seule l'adresse complète est admise, ni boîte postale, ni téléphone. Pour les vente 
de matériels d'occasion, indiquez le mois et l'année d'achat au fournisseur. 



ir figurer 



Muiériel concerné (le iss échéant) 
arjnjiriBleur individuel de laWe Dominateur 

I i i I I I I I l il 


i pocha OEm 
I I I 


I 1 I I I l I I 


1 M M 


mne? Doul 

III 


□ non 


l I I I I I I I I I I I I I I I M 


III 


1 1 1 1 




Il I I I I I II I l I I I l I I I I I I I I I 


M 1 1 1 


III 




I I I I I I I I I I I I I I I I I I I I I I I I 


Mil 


II 




I I 


Mil 


MM 





• Ces petites annonces gratuites sont exclusivement réservées à des propositions en 

objectif commercial et relatives a l'informatique individuelle : recherche de matériel d'o 

clutas, échanges d'expériences, recherches de programmes et de documentation, etc. L 

les ou d'échanges de programmes sont refusées systématiquement. 

Ls Journal ne garantit pas de délai de parution et se réserve le droll de refuser i 

nir de justification. 

Cette grille ne peut être utilisée plus de 3 mois après la sortis flu présent ni 



l'i U ORDINATEUR 
tl— Jj INDIVIDUEL 

SERVICE LECTEURS 

39 rue de la Grange-aux-Belles 

75484 Paris Cedex 10 
FRANCE 



POUR VOUS ABONNER 
OU POUR COMMANDER 
D'ANCIENS NUMÉROS 

Complétez la carte ci-contre 
et adressez-la accompagnée 
de votre règlement à L'ORDI- 
NATEUR INDIVIDUEL (ser- 
vice abonnement). 

BELGIQUE : 

Soumillion 
28 avenue Massenet 
1190 Bruxelles 
Versement : Société Générale 
2100405 835-39. 
SUISSE : 

27 route du Grand-Mont 
CH 1052 Le Mont-sur- 
Lausanne 

Versement : Caisse d'Épargne et 
de Crédit, 10-3418 1052 Le Mont, 
compte courant n° 650 156-7. 

CANADA : 

LMPI 

4435 bd des Grandes- 
Prairies, Montréal 
Québec H1R3N4 
FRANCE ET AUTRES PAYS : 
39 rue de !a Grange-aux- 
Belles 
75484 Paris Cedex 10 

Tarif d'abonnement (1 an, 11 
numéros) : France : 198 FF 
TVA 4 % incluse ; Belgique 
1 750 FB: Suisse": 67,5 FS 
Canada*: 30 $ ; autres pays* 
300 FF. Étudiants (justifica- 
tion indispensable): France 
154 FF; Belgique: 1 495 F B 
Suisse : 52,5 FS. 
Prix d'un numéro antérieur 
France: 22 FF ; Belgique: 
178FB; Suisse: 7,5 FS ; 
autres pays : 33 FF. 

* Tarif par avion : Afrique franco- 
phone (sauf Zaïre) : 370 FF ; Amé- 
rique, autre Afrique, Moyen- 
Orient, Océanie : 465 FF; Asie: 
545 FF. 



Complétez 
votre 

information 
grâce 
au service 
lecteurs 
en utilisant 
la carte 
ci-contre 

(Cerclez 
les numéros 
des différentes 
informations 
qui vous 
intéressent) 
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Basic(s) 



Depuis la parution de son premier numéro, en septembre 
1978, L'Ordinateur Individuel a publié quelque mille pro- 
grammes. 

Il fut bien difficile pour nous d'en sélectionner cinquante 
parmi cette quantité impressionnante. Nous avons essayé de 
couvrir de nombreux domaines : jeu, éducation, mathémati- 
que, utilitaire, professionnel, domestique et de proposer des 
programmes « prêts à l'emploi » pour plusieurs ordinateurs. 
Mais au-delà du programme Basic directement consomma- 
ble par un certain type de machine, il aurait été dommage 
de ne pas pouvoir faire profiter d'un même programme les 
utilisateurs de matériels différents. Car chacun sait que si le 
Basic est le langage le plus couramment utilisé sur les 
ordinateurs individuels, on peut noter des différences d'une 
machine à l'autre. 

C'est pourquoi il nous a semblé indispensable de publier 
dans ce numéro un tableau de traduction qui regroupe cent 
instructions Basic Microsoft, avec leur traduction pour 
19 ordinateurs parmi les plus répandus. 
En attendant l'apparition d'un Basic vraiment standard, 
disponible sur chaque ordinateur individuel. 

J 



Antoine Jennet 






Editeur: Jean-Pierre Nizard. 
Directeur de la rédaction : 
Bernard Sai/onet, 



Dossier « 50 programmes » 

Coordination : Antoine Jennet 
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L'Ordinateur Individuel 

est une publication du 
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Lu loi du 11 mars 1357 

.il' (>*«.? et 3 de l'article 41 c 
oa't.eiue- les copies ou 

: i. ..-■,; '.ions strictement 



partielle, taite sans le 
consentement de l'auteur ou de 
ses ayants-droit ou ayants-cause 
est illicite - (alinéa 1 B ' de l'Art. 40). 
Cette représentation ou 
reproduction, par quelque 
procédé que ce soit, conslitu 
donc une conlre-laçon 
sanctionnée par les Art. 425 et 
suivants du Code Pénal. 
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Si vous savez vous servir 
de cet instrument, 

vous saurez sûrement faire 
tourner nos logiciels en deux 
heures. 



Avec un peu de bonne volonté, bien sûr. 

Les logiciels Saari ne sont pas faits pour des 
programmateurs émérites ou des informaticiens 
avertis. 

Les logiciels Saari sont suffisamment faciles à 
utiliser pour que vous, Directeur d'une PME, Chef 
Comptable, Avocat, Expert comptable, etc., tiriez 
le meilleur parti de la Comptabilité Saari, de la Paie 
Gipsi, de la Gestion de Dossiers ou du Programme 
de Facturation et Stock. 

Les manuels sont bien clairs, écrits en bon 
français et illustrés. Et, si vous avez un doute sur 
une manœuvre, une touche ou une opération, 
n'hésitez pas à utiliser le Saari Sécurité Service. 

S'il vous fallait quelques preuves des qualités 
des logiciels Saari, sachez qu'ils sont contrôlés 
par le Bureau Veritas et que la Paie Gipsi a obtenu 



la Pomme d'Or, récompense suprême décernée 
par Apple. 

La presse Informatique a, elle aussi, beaucoup 
parlé des logiciels Saari, décernant ses meilleures 
notes à leur facilité d'apprentissage ou d'utilisation, 
ainsi qu'à leur richesse fonctionnelle, leur sécurité 
d'emploi ou leur finition. 

Les quatre logiciels Saari vous rendront de gros 
services, sans jamais vous apporter de gros soucis. 




saari 

«L'Esprit Français» 



PARLEZ-MOI BASIC 



Jean-Pierre Brunerie 
Ludwick Zuber 
Vous vous êtes peut-être souvent arraché les cheveux devant le programme Basic d'un autre 
ordinateur, et que vous aimeriez bien adapter sur le vôtre. Que vous soyez chevronné ou 
débutant, le tableau que nous vous présentons vous sera d'une aide efficace. 



e 



t asic signifie « de base », « ce qui 
i plus simple ». Basic est 
| aussi le langage qu'utilisent au- 
"jourd'hui six millions d'ordina- 
teurs individuels de par le monde. Le 
langage ? Oui, dans un certain sens, 
mais, malheureusement, suivant l'ordi- 
nateur que vous avez, son Basic pré- 
sentera un ou des traits spécifiques et 
il convient donc de parler des langages 
Basic. Pour vous aider à adapter les 
programmes Basic, nous avons établi 
un tableau comparatif qui, pour envi- 
ron cent instructions en Basic Micro- 
soft, donne leur « traduction » sur dix- 
huit ordinateurs individuels courants. 

L'adaptation de programmes Basic 
d'un 01 à un autre ne pose, dans 90 % 
des lignes, que peu ou pas de problè- 
mes. RUN, NEW, END, RETURN, etc., 
sont pratiquement toujours les mêmes. 

Oui, mais que se passe-t-il avec les 
1 % restant ? Ces 1 % renferment 
toutes les variantes, tous les faux amis, 
toutes les instructions qui changent de 
sens, toutes les possibilités d'astuces 
bien particulières (indubitablement les 
plus prisées...), bref tous les « patois » 
Basic ir 



Pour le reste, vous allez retrouver dans 
les pages qui suivent environ cent ins- 
tructions Basic Microsoft classées par 
ordre alphabétique. 
Ainsi, ce tableau pourra-t-il être utilisé, 
non seulement comme dictionnaire 
des instructions Basic, mais aussi 
comme table de traduction des diffé- 
rents ordres d'un matériel à un autre. 



Il est à noter que, pour des raisons 
évidentes d'encombrement (compte- 
tenu du nombre important d'instruc- 
tions, beaucoup étant spécifiques à un 
matériel), ce tableau ne saurait être 
exhaustif. Comme il est plus descriptif 
qu'explicatif, il conviendra de l'utiliser 
en parallèle avec le manuel d'utilisation 
des matériels considérés. 



Prenons par exemple un Vie 20 et un 
Apple : en rencontrant l'instruction 
INPUT de lecture sur disque de l'Ap- 
ple, vous pourriez penser qu'il s'agit de 
la saisie au clavier du Vie 20, et modi- 
fier le programme en conséquence. 
L'exemple est simple mais GET, RND, 
CLR et autres CLS réservent, hélas, 
des surprises autrement désagréables. 

Attention aux instructions qui s'adres- 
sent à la mémoire de votre ordinateur. 
Les ordres PEEK, POKE, CALL et 
autres USR devront pratiquement sys- 
tématiquement être adaptés. Les sym- 
boles graphiques, la couleur et le son 
sont eux aussi très spécifiques à l'ordi- 
nateur utilisé et, là encore, il est préfé- 
rable de recréer plutôt que de traduire 
d'un ordinateur à un autre. 



Table décroisée 



Certaines adresses étant spécifiques 
retrouver, par ordinateur, à quel ordre 
ii complète donc celui présenté dans ' 



machine, ce tableau vous permet d 
Basic Microsoft elles correspondent, 
suivantes: 



Apple 

DEL - DELETE 

GÈT -* INKEYS 

RENAME ■ - NAME 
NOTRACE -. TROFF 
TRACE - TRON 



Atari 400 

CLR -> CLEAR 

CLOG ~t CLG 

BYE -> SYSTEM 

GRAPHICS - TEXT 



Atom 

- ASC 
. CALL, USR 
^ CHRS 



BPUT 

RENUMBER 
TRACE OFF 
TRACE ON 



BBC 

CLG 

LOG 

OUT 

RENUM 

TROFF 

TRON 



ACOS - ACS 

ASIN - ASN 

LOGT ~. CLG 

DOT - PLOT 



Dragon 32 

-. CALL 
-* DELETE 
-. FRE 
-* PLOT 



Lynx 

ACS 
ASN 



ATN 

CLG 

DELETE 

FIX 

INKEYS 

LOG 

TROFF 

TRON 



MZ80A 

- CLEAR 
-> FRE 
-. INKEY$ 
-. LOG 
-. SYSTEM 



Oric 1 

GET, KEY$ - INKEYS 
LN -» LOG 

CURSET - PLOT 



TI99 

NUM -. AUTO 

OLD - CLOAD 

CALL CLEAR - CLS 
CONT 
RENUM 
TROFF 
TRON 



CON 
RES 

UNTRACE 
TRACE 



CINT 
SET 
SPACES 



TRS 80 modèle 1 



SYS 

CLR 
QET 



Vie 20 

- CALL 
-> CLEAR 
~* INKEYS 



Pour toutes précisions sur la société ou le produit présenté ci-dessus : Référence 1 1 5 du service-lecteurs (page 1 72) 



Dossier Programmes n° 54 bi 



TRADUIRE ET ADAPTER VOS PROGRAMMES 

Instructions Basic (ABS à CHR$) 



CENT INSTRUCTIONS BASIC A LA LOUPE 

Instructions Basic (CLEAR à CSAVE) ► 



Ordre Basic 

(Baslcoisj 

Ordinateur 
Ind(vldue) 


ABS 

(ABS) 

Valeur absolue 


ACS 


AND 

(ET) 

Opérateur 
logique signifié 
ET 


ASC 

(ASC) 

Daine le code ■ 
AECfi du premier 
caractère 'Je la 
chaîne 


ASN 

(ASN) 


ATN 

(ATN) 

Arc sangsue 


AUTO 

(AUTO) 

automatique des 
ignés de 
pngrsn.T-e 


CALL 

(APPELLE) 

langage machine 


CHAIN 

(ENCHAINE) 
Appel d'un ■ ■ 

piogiamme 


CHBj 

(GARS) 
Donne !e 

code ASCII est" 

afg 


AlIC» 

(Tandy MC 10) 


ABS largi 






ASC (chai) 












CHHSfarg) 


Apple 


m* 




" 


ASC {chai) 




ATN(arg) 




CALLaO 


CHAIN i mm 
BrooiaT.me i 


CHR$(arg) 


Atari 400 


ABS (arg) 




AND 


ASC (chai) 




ATN(aig) 






RUN.C:. 


CHfittarg} 


Atflm 


AES(arg) 


ACS | arc.) 


AND 


CHC-hai 
CHi.,.1 


ASN(arg) 


ATN (arg} 


OPTION 


UNK label 




î(a-g) 


HC 


«„ 


ACSIargj 


" 


ASC (chai) 


ASN(arg) 


ATN(arg) 


Al/TO |n" ligne 


CALLadrl,™.] 


programmai 


CHRJ(arg) 


Commodore M 


ABS (arg) 




AMD 


ASC (chai) 




ATN (arg) 




ËÏS(adr) 




CHRS(arg) 


Dol 


"" 


AC05[argp 


™ 


ASC [chai | 


ASIN(arg) 


ATN(arg) 




CALLMadrj.arg] 




CHRJ(arg) 


Dragon 32 


""* 




AND 


ASC [chai) 




ATN(arg) 




EXECadr 




CHRÎ(arg) 


Hector 
(ex Victor) 


ABS(arg| 


ASC [chain |,exp!} 


AND 


ASC (chai) 




ATN(ar 9 ) 


AJICh :jl'- 

Ssbiil} [.pas; 


. : 5i,i:v 




CHR$(arg> 


Lynx 


Bm 


ARCCOS(argj 


AND 


ASC 


AJ¥SH(arg| 


ARCTAN(arg) 


AUTO [n' ligne 
début L.pasjj 


CALL 




CHH$(ara| 


MZSOA 


ABSIarg) 




AND 


mm 




ATN(aig) 








CHPJ(arg} 


Orlcl 


ABS (arg) 




AND 


ASC (chai) 




ATN (arg} 




CALiadr 




CHRSIarg] 


PET/CbM 


"" 




AND 


ASC (chai) 




ATNiarg] 


AUTO pas 


SYS (a*) 


SWAPmcmpragi 


CHRKarg) 


TttomtortT07 


ABS (ar S ) 




AND 


ASC (chai) 






AUfO [n-ligne 

■Je sut |. pas] | 




RUN.MERGE.nom 


CHRS(arg) 


rtw 


""" 




" 


ASC (chai} 




ATN(arg) 


NUM{n-ligne 

de su] |.pa:.j; 






CHRS(arç) 


rus u 

modèles 1 «1 3 


ftBS(arg) 




AND 


ASC (chai} 




ATN(arg) 


AUTO [n°Sgne 




CHAIN < non 


CHRÎ(arg) 


île 20 


ABSIarg) 




* 


ASC (chai) 




ATN (arg) 




SYS adr 




CHB$(aig) 


IX 11 


ABS (arg) 


ACS(arg} 


AND 


CODE (cirai) 
pas ASCII 


ASN (erg) 


ATN(arg) 




LETvai = USR(adr} 




Cl-Hi.ir:*; 
N.B. mue ± ASCII 


ZX Spectrum 


ABS (arg) 


AGS(arg) 


AND 


CODE (chai} 
N 3. GKCI-Lim 


ASN(arg) 


ATN (arg} 




K,.;: 1 >n ■■:! 




CH'iiicjdoi 
N.B.corie± ASCII 


Itg.: argument numérique : exp. : expression ; chai(n) ; chaine numériq-je : adr : adresse ; «ar : var iafile ( nor- 1 du ■. -j : :£ :'.-l(î = . |. ] : i-Jiaisiirisfsu-f -.-iliL-r >j . i-.ji-p ■:-.-. ; L .::;;, ■■■: .;■;.;: 



Ordre Basic 

: (Basicois) 

Ordinateur 

Individuel 


CLEAR 

m) 

lemis-j '■■. ;eio 


CLG 

LOGD) 
.ogarilhmeen 

baselO . .. 


CLOAD 

CCHARGE) 

Chargement en 

ichiersur 


CLOSE CLS CONT 

FERME) (EFF) (CONTINUE) 

"ermeiurede Eitacement ■ Relance une 

stoppée ■ 


COLOR COS COUNT 

COULEUR) (COS) (COMPTE) " 

Définilionde ■ Cosinus ' Complètes 
ouleur ■ ■ ■.. caractères 

■ ••: i- ,;■' ■ . 
.. RETURN" 


CSAVi 

CCOPIE) 

Sauvegarde d'un 
ichiersur " 


Aile* 

(Tandy HC 10) 


CLEAR (arg) 




CLOAUncmpiogl 
CLOAD «.lien. 






CONT 


CLS (arg) 


" 




CSAVE ..lich. 


Apple 


aEAR 




LOAD|nomWi.] 
(idem disquette) 


CLOSE i nom i 






COLOR = arg 


„«,, 






Atari 400 


CLR 


CLOGIarg} 


CLOAD. nom». 


CLOSE 

[tWfictul 




CONT 


COLOR aig 


COS(eip) 




CSAVE (.nom ■ 


Atom 






LOAO (...1 








COLORarg 


e»p 


COUNT 


SAVE...> 


ne 


CLEAR 


L0G(arg| 
(—cfCLS) 


LOAD. nom lich > 


CLOSE *n" fi* 
fichiers 


:, ..n .i.l 
(cf. HOUE} 




COLOUHarg 
(GCOLen 
graphique) 


eip 


COJNT 


SAVE[.™mfch.l 


Commodore** 


OR 




LOAO (i nom 
(idem disquelle) 


CLOSE n°fich 




CONT 




»,, 




SAVE |< nom lich il 
...de.Tcsccolte] 


Dol 


CLEAR (arg) 


LOGT|e.p) 


LOAD[.r»m 
fctn) 

:i:findiscje;l;: 






CONT 


COLORTarg 1,2,3, 

COLORGargl,?. 
3, 4 : graph 


COS(exp) 




SAVE [ |^^ 


Dragon 32 


CLEAR (arg ; 




CLOAD (.nom 
fctl.l 


CLOSE -rvl* 


:u:r^ r l.".a>on 
(cICOLOR) 


CONT 


as arg (COLOR 
esl aussi utilisé) 


COS(e.p) 




CSAVE. nom lich i 


Hector 
(«Victor) 


CLEAR [,e.p| 




LOAD [.nom 

San] 




CLS.[,e.pl 


CONT 


COLORe.p,eip, 


,COS(fnp} 




SAVE (.nom lien. [ 


Lynx 




L0G(e»p} 


lu 




VDU4 


CONT 


INKarg 


COS(eip) 




SAVE, nom lich i. 
[rr=deia l-ligne] 

(idem disquelte] 


MUA 


aR 


LOG(ejp) 


LOAO/T.nom 
«ch. 


CLOSE [#n'(ich] 




™ 




COS(eip} 




SAVE/Tmcm 
lich. 


Mcl 


clear 




hth] . [.S] 
N.B. S. 300 barris 






CONT 




COS(exp) 




CSAVE. nomlich. 
[,S] [.AUTO] 


KI/CIM 


CLR 




LOAD (.nom 

nchi| 

(idemrSsquené) 


CLOSES n' lich 




CONT 




COS/eip] 




SAVE |c nom lichi] 


Thomson Î07 


aulreiflftatai 




LOAD .nom lich ■ 


CLOSE 


CLS 


CONT 


COLOR ara 1. arg 2 






SAVE «nom lich. 
(idem disquella) 


TIH 






OLDncmfr* 




CALL CLEAR 


CON 




COS(e.p) 




SAVE nom Sch 


m h 

modèles 1 «13 


CLEAR |(arg|] 




CLOAD i (nom 

Mit 


CLOSE # n" tiers 
tn-tWi.] 


CLS 


CONT 




COS[eip} 




CSAVE c mm lich» 


Vie 20 


CLR 




LOAD (.nom 
Sjtii] 


CLOSES rth 




CONT 








SAVE (.nom lich ., 
codecontroJe] 


mi 


CLEAR 




LOADf [nom 
11*1 > 

(idem disquette 1 




CLS 


CONT 




COS (eip} 




SAVE, nom lich ■ 


USpeetrum 


CLEAR 




i ■,■!.■■■■ ■ : 


CLOSE # n° lictâer 


CLS 


CONTINUE 


INKarg 
PAPER arg 


COS(eip) 




SAVE, nom Wi> 


■ •nj.îafgument numérique ; exp.; exprès: !■■■. ciirji(n) : ■: !-n ■ ■.. ;u adr: fie e vatr : ■ n i : ■ ■ |.:e des clauses équivalentes. 



ar Programmes n" 54 bis déc.1: 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 

Instructions Basic (DATA à FLASH) 



CENT INSTRUCTIONS BASIC A LA LOUPE 

Instructions Basic (FOR à INPUT#) ► 



Ordre Basic 
(Basicois) 

Ordinateur 

Inàivktuei 


DATA 

(INFOS) 
Création d'une 

i ■■ ■ ■ .i ■ 


DEFFN 

(DEFFN) 

Définition de 
(onctions 

urilisateur 


DELETE 

[ENLEVE) 

■1, ■ :■ ' Il 

lignes de 
programme 


DIM 

(DM) 

Définition de 
tableaux 


EDIT 

(EDÏÏ) 

Edite une ligne de 
programme 


END 

m 

fin exécution 
d'une séquence 


EOF 

(EOF/ 

■\n de ficha 


EXP 

(EXP) 

Exponentielle 


FIX 


FLASH 

(CLIGNE) ' 
Clignotement 


Aile» 
(Tandy MC 10) 


DATAva^ra.. 1 






MM nom (arg,..) 




END 




"""" 






Appla 


DATAvar [,var...j 


DEFFN var (var) 


DEL ir ligne 1 
[,n"&gne!.„] 


HHnomlarg,..) 


louche ESC 
+ louche CTRL 


END 




EXP t>)j]) 




FLASH 


Atari 400 


DATAvar |.var.„| 






1U! nom (iri:. . . : 




END 




E*P(e*p) 






Mm 


OPTION 






DIMnonequwilent 




END 




EXP(e'p) 






1IC 


CATAwM.ra- ■! 


DEFFNvar|[var. 
var)] = e.p 


DELETE n' «goal, 
Wignef 


DIMranHarç,...) 


sélection par 
COPÏ 


END 


EOFff 


EXP(exp) 




WKJ 


CommodoitM 


OATAwi [.var...] 


DEFFN var = eip 




DlMnam|arg,...| 




END 




EXP [e.p) 






M 


DATAvar [,var...J 






ClMnom(arg,..} 




END 




EXP[exu| 






Dragon 11 


DATAvar |,var...| 


DEFFN var (var) 


'.. :■ . ■■ ■ 

ligne! 


CM nom (arg....) 


EDIT n" ligne 


END 


EOF H) 


EXP(eip) 


mm 




Hoctor 
(«Victor) 


DATAvar {.var] 


DEFFN var M 




DIMncmlexp,...) 


EDITn'Ikjne 
EKfi^^ti 


END 




EXP(e«p] 




FLASH ri' couleur 
[.«Pi 


Lynx 


DATAvar [.var...] 




DEL n" lignai 
1, n- ligna 2] 


I.l'.f ■■..■■■.:;: ...i 


CTRL 


END 




EXPlexp) 


ROUND ON /OFF 




HZ 10 A 


DATAvar [.uar...] 




DELETE |FDn- 
(efface tout fichier) 


DIMncmlarg...) 




END 


EOFIffn'delichier 


EXP(exp) 






brie! 


•»„,.„, 


DEFFN var {var! 




OMrwmjaig, ..) 


"'"* 


END 




EXPftm)) 






KT/CIM 


DATAvar |, var...] 


DEFFN var-eip 


DB£TEir>lgm1- 

n" ligne 2 


DM nom (arg...) 




END 




EXP(exp| 






ThomHnTOT 


DATAvar [, var..) 




■■;■,■ ;.: 
l-lrftgre?]] 


□IM nom (arg....) 




END 


EOF 


EXPieip) 


mm 




m 


DATAvar [.var..] 


DEFvar(vai) = e,p 






EDIT aligne 


END 


EOf 


ËXPfe'p) 






TU H 

modèlei 1 «1 1 


DATAvar [,var..| 


Afféientes 


OELETE n° ligne: 
n°igr>a2 


-.,. ... 


EDfT rf ligne 


END 




EXP(eip) 


FlX(arg) 




Vie» 


DATAvar], var..] 


DEFFN (var) = e<p 


□ELETF [nNione 
[,] [rfligivsJI 


auiomiarç i 




END 




EXP(e.p) 






1X11 








WvrWî } 


(sctelion par 






EXP(eip) 






Qdptctrm 


DATAvar], var.. ,| 


DEFFN var 




DWronfarj ■ 


EDIT |n- ligne] 






EXP(exp) 




PRINT FLASH 1 


If g. : argument numérique ; Bip. : expression : dni{h) : cliaine nurv- -].e tdr : adrass 


ni: variable (ne 


m de variable} : {.] : indique une clause optionnelle ; S ; in 


iquedes clauses équivalentes. . 



Ordre Basic 

(Basicois) 

Ordinateur 
Individuel 


FOR 

(REPETE). 

Jtiiisrravec 
N EXT pour 
répéter une' 
secuence 


FI» 

(LIBRE) 

tonne la place, 
disponible en. 


GET 
(PRENDS) 

.ectuied'un . 
enregistrement 


GOSUB 

VAVIENS) 

frogramme . 


GOTO 

VATEN) 

tranctiemenlà 

(tu programme 


HOME 

(VIDE) ■. 

'idel'écrans! 
>csilicr.ne le 
lU'seur en h,u; é 
gauche 


FTHENELSE 

(SI/ALORS/ 
SINON) 

Si... alors... sinon 


NKEYÎ 

CAPTES) 

inlrée directe 

^csj;;:svie: 


NPUT 

DEMANDE) 
.ecOirè de 

données entées 


NPUT# 
DEMANDER 

ectured'un 
ichierséquenliel 


Aile* 
(Tandy KC 10) 


PORTO [STEP] 


MEM 






GOTOrvûgne 




IFeipTHEW«d!e5 
lELSEc-dres! 


INKEYI 


:■.! i ::■ 1. j / 




Apple 


FORvacarglTO 
arg2[STEParg3] 


FREIOI 


*i;ia1..j!.: 


GOSUB |rr= ligne 


GOTO n" ligne 


NOME 


:r ;.f T-CM.ruiu. 
lELSEcdres] 


GET var 


"izr 




Alort 400 


■ 
arg2[STEParg3] 


FRE(e.p) 


G£ï#n=Miler.var 


GOSUB In" ligne 


GOTO |v gr,:- 




IF e*pTHEN ordres 




(.var.-) 




Àtom 


FORva( = arg1TO 






VJ3JF- |:-l ■" 




CTRL ûuPrinlî38 
(par prrxjramme) 


IF e-pTHEN ordres 




■.i' i 
{.va,...] 




HC 


.... ■ ■ 
arg2 [STEParg3| 


M M EU-TOP (non 


INI Y *.;!,. ''. "' 


GOSDB Ireïgrre 


GOTO [rf- ligne 


C.S r;s;:c!lf 


IF e.pTHEN ordres 
ILÎEorc-es] 


CiF-Sva.(ï.i 

INKEYt(lps) 


INPUT [chair, (;] J 

var (, var..] 


:; ■,:■ : ■: 

va- | va' .: iŒ-rri 

GET) 


Commodore 64 


■ 
v\l :';"[TaijSl 


FRE(eip) 


GET #rf fichier, var 

I.VH...1 


""""" 


GOTO n« ligna 


PRINT ■touche 


IF exp THEN ordres 


GET var 


(NPUT 

{• messager;] var 

j.var...] 


INPUT if) n-Wiier 


Dell 


FORvar = arglTO 
a<g2[5TEParg3] 


PRE 




GOSUB rvlgne 


GOTO n" ligne 


?CHRI{12) 


r ,... -.;:-.. ,.., 

.■iusïTc-ïnOOTC 
n- ligne) 


""" 


INPUT 

|i messager;] va 

l.var...] 




Dragon 3! 


FORvar = arglïO 
arrj2(STEParg3) 


MEM 


WPU ^raj 


GOSUB rfligjie 


GOT0rv>^ne 




■■ ■■ 
(EI.SE 5'Ces] 


INKEY$ 


INPUT 

r!lt<--. .si 

[,var..] 


INPLIT # - 1 var [. 


HkIoi 
(«Victor) 


-:.-:T0 
arg! [STEParg3] 


FREE|expl 




GOSJB IrfligrB 


GOTO Irfllgne 


WIPE 


: !■■-.-■, 
|:aSE ordres) 


;NKEVS(tpsi 


INPUT 

|< message i;) var 

|,var„.) 




Lynx 


FORvar = arglTO 
arg:[S"Era-j;j 


HEU 




G0SUE aligne 


GOTO n" ligne 


CLS 


|ELSE ordres) 


GETSIanenle) 


INPUT 

[■ -sssaqei:: va' 

l.var...] 




«BOA 


FORvar = arg1TQ 
ar S 2|STEParg3] 


MEM 


IN PUT Tenreg. 


GOSUB rr= ligne 


GOTO n» ligne 




IF expTHEN ordres 


GET var 


|i messager;] var 


INPUT SnTiahier 


Orlcl 


FÛRïôr :.!■] I "O 
ar S 2{STEParg31 


FFiË(e*p) 




G0SU8 | Cligne 


GOTO In" ligne 


PRINT CHRS (30) 


■■:., --ri ■■■ ,;■ 
i EL SE fiera; | 


KErt 


INPUT ■ 
[t message i;) var 




r?ET/CIM 


FOfivar = arglTO 
arg2[STEParg3] 


FRE(exp) 


{.va....] 


GOSUB n" ligne 


GOTO n» ligna 


T.r- 


IF e<pTHEN ordres 


GET^ai 


"T»H J * 


NPI,T#-i'lth.e: 
var |, var..,] 


Thomioril07 


rc.h.a: ;;■;■:" 
arg2[STEParg3] 


FRE{B) 




GOSUB tfi ligne 


GOTO n' ligne 


CLS 


IF eipTH EN ordres 
[ELSEordresl 


rai*i 


INPUT 

|i messager;] var 

l,var.„] 




n»9 


arg2|STEPanj3] 






GOSUB rv ligne 


GOTO re ligne 




IF eipTREN ordres 
[ESErsrJes] 




.message. 




tltJ 80 

modtlesl et 3 


F0Rvar = arglTO 
arg 2 |STEParg3| 


FRE(eip) 


enreg I.emeg...) 


GOSUB aligna 


GOTOrfSgr* 




-: ■ ■ . ■ 

IELSE ordres] 


"" 


INPUT |chain;] var 
[.var...) 




Vie H 


F0Rvar = argtTO 
arg2[STEParg3| 


FRE(eip) 


OPTAI 
GETSn.AÎ 


GOSUB n« ligne 


GOTOrflgne 


■ 1 ■■;■..■. ■ 


IF bjjiTHEN ordres 


GET var 


i,P^! r-hruh-rj 




IX SI 


arg 2 |3TEP arg 3] 






GOSUB In» ligne 


GOTO |rr=Sgne 


CLS 


IFexpTtfENwdïs 


INKEÏÎ 


INPUT var 




ZXSpectram 


FOR var = arg 1 TO 

arg 2 [STEP arg 3] 




loaoi >da:a 


GOSUB j n"ligne 


GOTO Irr» ligne 


CLS 


IFeipTRENorrlres 


IhKFi'S 


INPUT Icrialn;] var 




arg.iargum 


nt miméfique ; #xp, : expression ; d 


i(n) : cnainie numérique ; adr : adresse. ;-vw-; variabte(nori de variable; [J: i~*q-a -nt; cia^ss ap-ic-mBils ; ■ ïva entes. 
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TRADUIRE ET ADAPTER VOS PROGRAMMES 



Instructions Basic (INSTR à LOAD) 



CENT INSTRUCTIONS BASIC A LA LOUPE 

Instructions Basic (LOG à ON/GOSUB) ► 



Ordre Satie 

(BasKois) 

Ordinateur 
Individuel 


INSTR 

(imxî) 

Recherche de la 
position d'une 
Jia'ne Jar-i 'jïiii 


INT 

(EUT! 

Partie enliére 


INVERSE 

(INVERSE) 


KILL 

(DETRUIS! 

Suppression d'un 


LEFT$ 

(GAUCHES) ■ 
Fournit les 
caractères de 
gauche d'une 
chaine 


LEN 

(LONG) 

Donne la taille 
d'une chaîne 


LET 

(FAIS) 

Altectalion . 


LIST 
(LISTE) 

Affiche les lignes 
demandées 


UIST 

(LISTAGE) . . 

Liste programme 

' imprimante 


LOAD 

(CHARGE) 

Cliarge.un 
programme ' 


Alice 
(Tend) W 10) 




"" 




DELETErnomtich. 


ttj*t 


LENjchan'l 


LETïar = e<p 


[n» lions 2] 


LLtST 




Apple 




DEM 


INVERSE 




LEFTS (chain. 
longueur) 


LEN(chain) 


|LET)mr-«p 


LIST [aligne 1 (. 
n' ligne!]] 




LOAD [ncfliWi.) 


MariMKI 




INTleip) 






AS(I.N) 


LEN (chain) 


[LET]va = e.p 


LIST (rf ligne 1 


USTiPii 


LOAD. n» Tchier; 

(cassette : cl 
CLOAD) 












"*""" 


LEN (chain) 


[LET]var = e>p 


I,n" ligne!]] 




^f-hi'™ 


no 


IN5TH (chain t, 
Chain 2 [.argl } 


INT(eip) 


PLOT (utilisalion 




LEFTSIchain, 
longueur) 


LEN (chain) 


[LEP|wB-ap 


LIST [rv lignai [■ 
n" ligne 2]] 


ctîî. :■ pj.; Liir 

rligne: ■. : .gn° 
2] 


. ■..■ n chie 


Commodore M 




INT(eip] 






LE'-;:.:lw. 
longueur) 


LEN(cham) 


[LET]ra = eip 


-n'ligne2]J 


CMD 1 UST 
[r, Iç-jiç \ il iiyif 

!] 


LOAD i nom 

::■:■!£:■> 5 cas;s:!e 

cl CLOAD) 


Dol 




Wflexp) 






LEFTS (cha^n, 


LENIchaln) 


ILETlvar^exp 


LIST [n= ligne 1]- 
(n- ligne!] 




LOAD |> nom 


Dragon H 




INÎ(e>p) 






t» 


LEN (chain) 


ILETI-ar-exp 


.IH-|:-:i,.||- 

n»igna2]l 


■;- [r- :\KI- 
m 5 ligne 2] 




Hector 

(«Victor) 


"""" 


"" 






LEFïî (chain, 
longueur) 


LEN(chaJn) 


pi}.W»«a 


LISTjrflignel] [,] 
[«•ligne-!] 


LLISTjn" lignai, 
[,] [aligne!} 


LOAD [i nom 
Sert.] 


tyn< 




"'"" 


VDU18 




LEFTS (Chain, 


LEN (chain) 


[LETIra^.p 


LiST .'m iienc ' 
[.n-figne?]) 


LL!ST |n= ligfie 1 . 
if (gne î| 


LOAD. nom 
cassetle) 


IO10A 




lNT(e<p) 






LEFTS (chjin, 
fonguetii) 


LEN (chain) 


[LET]ra = e>p 


.. ■ ■ :■■■ 

n" ligne!]] 


IS! T :ji"- 1 ■ 

n" ligne 2 1 


LOAD 
[FDn-disque] 


Orlcl 




JNT(e*p) 






LEFT$ (chain, 
langueur) 


(diaii) 


[LET]var = e,p 


i.ST:n:,ç- fi -- 
religne!] 


LLI5T tn»ligne1- 

tfligneï] 




KI/CIM 




INT(exn| 


flVSr 


SCn.A'CMirom 


LEFTS[chain, 
bngueurj 


LEN (chain) 


[LET]var = e.p 


.is" \- -jrs- 
rf ligne 2] ] 


.OPENi.4 
CM01LIST 

[r gnel.r gre 


LOACHnom 
et CLOAD) 


ThomwriTO? 


INSTR 


INT(eip) 






longueur) 


LEN (chain) 


[LET]var = e.p 


UST ( [ir- ligne 1] - 
|rr> ligne 2] | 


LIST i nom prog> 


TtocasseîteS' 


iî» 




IMTffflp) 










[LET]var = e<p 


■" 
[rrligi>e2]| 






TSStO 
modèle* 1 »t ) 




CINT (eïpi 




■ -V 


LEFTSicham, 


LEN (chain) 


ILETlvar^p 


.::;'[ [r, gr; 1 - 
aligne 2] 


liSl ri:-,.:- 

ff ligne 2] 


LOAD. nom de 
r:h-=->'fd;s°:ia 
cl. CLOAO) 


Vie 10 




rNTfeip] 






LEMSfehan. 
longueur) 


LEN (chain) 


[l£T]W-i»p 


UST[[rflig™i]- 
[religne 2] 


OPEN3.4:CMD3: 
L-ËT ii-!ig-e ■ - 

rf ligne!] 


cl. CLOAD) 


au 




INT(e«p) 






c*am(T01rn) 


LEN (chain) 


LETïac = eip 


LIST [rv tgne] 


LLIST [n> ligne] 
(COPY: copie 

imprimante) 




ZXIpectnim 




INT(e.p) 


INVERSE 1 




chain (TO tin) 


LENichôinl 


LETvaj = e.p 


LIST [ri" ligne] 


i . ST [n :grs] 




«9.:argurnentniimàique;«p.:8i(pre5a()ii;diii(n):chairienuniérique;Bdr : adsesse îmcnsfiateino-: ■ . i ■ ,■ ■ i ;. .i: . 



Ordre Basic 

: (Bsscois) 

Ordinateur 
Individuel 


10» 

IOG) 

..(igarilhme 
népérien 


MAX 

MAX) 

aaximadedeu* 


MID$ 

PARTIES) . 

ang indicé 


MIN 

MIN) 

aleurs 


MOD 

MOD) 


NAME 

NOMME) 

Chanjelenom 
d'un fichier. 


NEW 

NETTOIE) 

ifacele :. 
■royrarmie en 
rnénioire 


NEXT ONERROR 

ENCORE) (SELON 
Findeûoucle 'ERREUR) 
FOR . Bran^isnei" 5 
une séquence ■ 


ON/GOSUB 

SELOv.VA 
VIENS) '• 

Rrsn;.iicn:enl 
alcjiéàtin 




Alice 
(londYMCIO) 


™" 




yiDik-sn. 








NEW 


„„ 




ONvarGOSlB 
|n° ligne 2..) 




Apple 


LOS(esp) 




MIDS (chain. dèoul 
[.longueur] 






nom.ncuteaunom 


NEW 


NEXT|»ar...] 


ONERRGOTO 


Il '■M'r. | r Gif 




Atari «0 


LOGIe«p) 




AÎ(U| 








NEW 


NEXTvar TRAP jn'I^ne 


ONwGOSUB 

-. n : ;i '.n : l.c.-.e 

2...1 




Alain 


LOG(e^) 












NEW 


NEXTvar 








IIC 


LN(e-p) 




MIDI (chain. début 
l,kngueur|) 




.X .i:;' '.(;■[■■ 

erg! 


0PEN1.8,t5. 
nom2> 


NEW 


NEXT Ivarl 


ONEFROR 

OFF 


ONJ s " p GOSUB 
-Ignei («liçnei 




Commodore M 


LOG(eip) 




'.i D. ; \w- t'JL'.l. 
[. longueur] ) 




arg3 




NEW 


NEXT jvar, ...] 




ONvarGOSUB 

-.lic-iel :.r,-lk:-( 

!..) 




Bal 


LOG(e.p) 




:'■ . ■ ■ i ■ 
Icngueur) 








NEW 


NEXT [mr] 




■ ■■■...:; :::: 
2..]' 




Dragon 31 


LOGIe>p) 




MIDI {chain. début 
[, longueur] ) 










NEXT [w : ...1 




ONraGOSUB 
1, n» ligne !...| 




Hector 
(«'Victor) 


LOG [erjjj 




MIDI [chain, début 
I. longueur] ) 


MIN(eipt,eip!) 






NEW 


NEXT|var..„] 


ERRORn» ligne 


ONvarGOSlB 

fc',fe 




Lyr,. 


LN(e*p| 




MIDS (chain. début 
[.longueur)] 




arg2 






NEXT |var| 








MltOA 


LN(exp) 




l.'l ":■ 

|, longueur] | 








NEW 


NEW [var] 




t igns 1 '.ii'Iici 
! | 




Orlcl 


(LOG » Décimal) 




■. ■■ .:■;■: :■.. 

[.longueur]) 








NEW 


NEXT kar....] 




ONraGOSUB 

n hou.; 1 i.r'lai 

2..] 




PET/CIM 


LOG(exp) 




MIDS (chain. début 
|, longueur)) 








NEW 


NEXT |ra...] 




n urne ' 'n'ibic 
!..] 




ThomtonT07 


LOGie.p) 




MIDI (chain. début 
[, longueur]) 




MODarg! 




NEW 




ONERROR GOTO 


ONvarGOSlB 

TlC-it ' j.'rlici 

2...] 




Ë» 


L0G(eip| 












NEW 


NEXT 




ifluiie! (. 
ligne!...] 




ras sa 

modèle- 1 et 3 


LOG(eip) 




■.ii.! -;r ■:■:,.. 
longueur) 






NAUE ancien nom 


" 


NEXT [var. ...] 


ONEFTORGOTO 


ONvarGOSUB 

■■' ig-"ei '.i ig." 

!..] 




Vie 10 


LOGIe.p) 




MIDS (chain. débul 








NEW 


NEXT (var...] 




ONvarGOSlB 
[.n=lgne2..] 




Mil 


LN(eip) 




cJiain(dêt«rtTOlin 








NEW 


NEXTrar 








ZXSpectrum 


LN(e*p) 




chain(rlébulTO[in 








"* 


NEXTvar 








erg. : arguntesil numririque ; elip. : exprression ; chai(n) : chaine numérique : adr : adresse' ; 





TRADUIRE ET ADAPTER VOS PROGRAMMES 

Instructions Basic (ON/GOTO à RANDOMIZE) 



CENT INSTRUCTIONS BASIC A LA LOUPE 

Instructions Basic (READ â SAVE) ► 



Ordre Basic 

iBsskxtis 

Ordinateur 
Individu* 


ON/GOTO 

(SELÛWVATEN) 

Branchement à 
une ligne seion la 
valeur d'une 
variable 


OPEH 

mm 

Ouverture d'un 


OUT 

(EMET! 

Envoie la donnée 

indiqué 


PEEK 

(images 

Donne le contenu 
d'une adresse 
mémoire 


PLOT 

(DESSINE} 
Allume point des 
ca-rdornee;- in- 
diquées (ou posi- 
tionne le curseur; 


POKE 

(GARNIS/ 

l'adresse 
ii'dlc use. l'octet 
spécifié 


POS 

(POS) 

Positionne le 
curseur ou donne 
sa position en 
ligne courante 


PRINT 

(ECRIS) 

résultats cl 
éc tjr; j'riiiL. j 1 " 

fichier (#) 


PRINT 
USING 

(ECRIS 

SUIVANT/ 
Formatage 


RAKDOMIZE 

(HASARDE) 

dénombres 


Met 
{Tandy NO 111) 


ONvarGOTO 
n°5gne1 [, 
ligne 2..] 






PEEK(adr) 


SET(x,y.z) 


POKEadr.cciel 


PRINT (B 


■ . '■ ! 

PRINTe,e>p 






Appli 


ONvarGCIO 

ligne!...] 


OPENnomc* 




PEEK(adr| 


P10, "" 


POKEadr, cctel 


.POS (..y) 

; '. iBJ 1 1 1 


PRIHT * ln 

1:1 


i .i;.,. , ■ ? 

pejr i'^alacs 




Atari MO 


l'Ho/ut '.i ïgne 
2...) 






PEEK (a*) 


FLOU y 


POKEadr.cciel 


POSITION i, y 


. PRINT # rr=fch, 




RHD(-arg) 






..: ■- : . 

(leclure)OPENOUT 
(écriture] • rom de 




"*"" 


M0VEarg1,arg2 
PLOT 


?adr = ociet 




PPJNT |e.p] 




RND%arg 


IIC 


{on J*qoto 

n" ligne 1 [, n c ligne 


1 OPENlNltect.) 
PPENOUT (écrit.) 


EPUÏfllarg] 
(BiiF- ij'fï'.fi. 


" 


J MOVE , „ 

1 PLOT 4*-' 
(et manuel: PLOT 


?adr, octet 


Position 


.PfllMTeipI, 
■p..-] 

.PRINTSnonilich. 


opéra V "^ 


HND(-arg| 


GannsdenU 


OHvarGOTO 

-,'lig-e' :.i~ i:; ■■ 

2...1 


OPENarsj^ 

fotect 'i nom de 




PEEK(adr) 




POKEadr, octet 


*" 


. PRINT exp (. 

B*p...| 

PR M # n ; fief 




RNDfTI] 


Dal 


rfSgnel [.Ffigne 
2..J 




OUT pw, donnée 


var = PEEK (adr) 


DOT., y, couleur 


POKEadr.oclet 


-CURS0R.,y 

va- - ounx 


PRIHT e-p [; 




RND(aig) 
N.G.Iesignedearg 
définit la fonction 


Dragon II 


ONvarGOTO 

rfùgnel [.iplgne 

2...] 


OPEH mode.» 
fictiieri 




PEEK(adr) 


-■ ! .C, : j,. .;■■!.■ 
i : fl[Srr 'ont: su 


POKEadr, octel 


POS : position ligna 


:■ 
c.f,..; .FFI'fTop 


Liage Lper l.:|..: 
pour formatage 




HKlar 

(eiVfetor) 


ONvarGOTO 

C1R] 




OUïpon.ociet 


PEEK (adr) 


PLOTi.v l.iargeur. 


POKE a«, octet 


hçrieccvaiîe 


.PRINT/arg: e.p 




SEEDexp 


lynx 






OUT port, donnée 


PEEK(adr) 


DOT «.y) 


POKEadr.oclet 


ra =r 


.PRINT exp |, 




HANOOM 


nm 


ONvarGOTO 

n°lignel [, n" ligne 

t.] 




OUT port, donnée 


PEEK (adr) 




POKEadr, «tel 


MOVEx.y 


.PRiNTTenreg |, 

er»eg...T 

FRirsa-.v.-vl 

var] 




RN0(-e.p] 


Orlcl 


ONvarGOTO 

n»lignet |. rr ligne 

t.] 




POKE3XX, valeur 


PEEK (a*) 


ti.E "-LOTau'ie 
^■'■■ïçni'cslii-, 


POKEaoV. octet 


CURSORx.y 
ilgn^cc..ii"::e 






RND(-arg) 


KT/CW 


ONvarGOTO 

rflignel l.ifligrK 

2..] 


iBdak 
11 écrit fichier * 




PEEK(adr) 




POKEadr.oclet 


en ligne couranie 


(,e.p.. 1 ! 
PFINT # n' '-.ci 


PRINT USING 


RND(TI) 


IMmonTH 


ONvarGOTO 

■ ; ;]reï |.r iqn? 

2...] 






~" 


* 


POKEadr, Octet 


LOCATE«.y 


PAINT exp [, 
exp...] 


PRINT USING 




n« 


n« ligne 1 [. ri" ligne 

2...] 












(autre signification] 


PRINT e.p |. 
BW.J 

ri G DISfi Aï 

i--: uiv j 




RANDOMIZEarg 


modèlti 1 1\ 1 


ONvarGOTO 
n-ligne 1 l.n'ligrw 


OFEN.I/uiffn'. 
nom:sèa,OPEN 


OUT port, octet 


PEEK (adr) 


SET(x.y) 


POKEadr.oclet 


■■,>\i-- 


PHirlï.ar 
.=RIN"# pic-, 
enregl.enreg..] 


PAINT USING 


fl" N COU 


Vie 20 


rfignel [.rrigre 
2...] 


OPENeïp.n=tfch, 

mode, i nom Sch> 




FEEK(adr) 




r-0-E,:;i &;:;■: 


"BSS" 


PRINT [. mess. >.] 
[var,...l 

PRINT #n'r., 
eniegl.en.eg..] 




RND(-TI| 


IXI1 








mm 


PLOT x. y 


POKEadr, cctel 


PRINT AT i, y 


!• Tissage •:] 




RANO(arg) 


IXSpectnim 




OPENSrHIctWr 


OUT port, octet 


PEEK(adr) 


PLOT ..y 


POKEadr.oclet 


PRINT AT., y 


[■message»:] 




FIAND(arg) 


«e>:argumentnumàiqiie;«p.:e*pressiOT^^ ) ae e 



Ordre) Bt»lc 

(Basicvis) 

Ordinateur 

Individuel 


READ 

'EMPLIS! 

iste DATA 


REM 

mi 

nsaiionde 
ignés 


BENUM 

RENOM} 

"tr'ij'' ère la t .n 
des lignes de 
oregramme ... 


RESTORE 

RESTAURE; 

début de liste 
DATA 


RESUME 

REPRENDS} 

ïetcut juste 

n'i-^ri".!"'- :v..- : :-.r 


RETURN 

REVIENS) 

nogramme ■ 
i 


RIGHT$ 

MOITES! 

tonne les ■■ 


HND 

HSDj ■ 


RUH 

lEXE! 

_iec : Jlio,i d'un 
programme ' 


SAVE 

COPIE) 

auvegatded'itn' 
rogramme 


Alice 
(Tandy HC 10) 


-:-l. ■:■ i ; 


"""""■ 




RESTORE 




RETURH 


"-" 


PND(arg] 


RUN 




Apple 


READvar l,var...] 


REU commentaire 




RESTORE 


RESJME 


™ 


RIGHTS(ctuin, 
longueur] 


RND(arg) 


FtlN [n°tçne] 


AVE[inomfehi] 


AlOrtMO 


REAOvarl.vai...] 


R Mccmœentaire 




RESTORE n- ligne 




RETURN 


«Kl M] 


RNO(arg) 




■■,'-. ■■! .1 

cfOSAVE) ■ 


Atom 


READ 


REM commentaire 








""■ 


"""" 


RNDatg 


RUH 


SAVE nom lier» 


IIC 


FlEADvar |.vai...] 


■■■.Ff.'.,,ii,M,--:i-.> 


F L ■ ■■ 
loebut] l.pas] 


""" 


ONERROROF 


RETJRN 


PIGHTS (chain, 
longueur) 


RNO(arg) 


RUN 


SAVîT|.nomlich.] 
\ IchainI 


Commodore M 


READvar [, var...] 


REM commentaire 




RESTORE 




ROURN 


RIGHTSichain. 
longuieur) 


RND(aig) 


RUN (n- ligne} 


SAVE, rom 
IcaïïllsilCSAVEl 


Dal 


READvar l,var..| 


!■['.' ;:-rn-:-j--L' 




RESTORE 




„ 


RIGHTS(chairi, 


RNDfarg) 


RUN 


SAVE»' 


DragonS! 


AEADvai|.vai...] 


REMrammeîitaire 


RENUM [aligne 
déoul.pasl 


RESTORE 




RETURN 


longueur) 


RNDIarg] 


RUN'Tlig-*; 




Hector 
(h Victor) 


READvar [.var] 


REMccmmentaire 


■:■,'!■ : , 
(,pasl 


RESTORE exp 




RETURN 


RIGHTtlchein. 
longueur) . 


i!N"i ■ n. ■ m 


RUN [rf ligne) 


'A ,T: [,",■;■■?:,•; 


Lynx 


READvail.var.. j 


SFi.'u'vii.iirls.- 


RENUM |n» ligne 
début, pas] 


SESTORE 




RETURN 


FIGFT- k:-,e . 
longueur) 


RNDHjRAHD(arg) 


RUNrvl^ 


ssa 


MZICA 


READvar], var...] 


REM commentaire 




RESTORE (argi 


RESUME 
H NEXT (1 
l\n' ligne (J 


RETURN 


RIGHTÎ (cha.n, 

longueur) 


RND(arg) 


RUN 


i-'.VF ;F;j:-(!liï!:; 


Orlcl 


READvar [.var.] 


AEHccmœentaire 




RESTORE 




RETURN 


RIGHTS (Chain, 


RNO(arg) 


RUN [WBgne] 




Ffl/CIM 


READvar [,vai...l 


REU commentaire 


nci.Liçi:-. 
ligne 2. pas 


RESTORE 




RETURH 


longueur) 


RND(arg) 


RUN [n igf.îl 


SAVE. nom 
lictiier i, Biuseirt 


ThomionT07 


READvar], var...] 


REM commentaire 




RESTOAE 




RETURN 


RIGHTt (chain. 
longueur) 


RNO 


RUN [n" ligne] 


SAVE.nomtch.i 


TIW 


READvar [, var..] 


AEMcommenlaire 


pas] 


RESTORE 




RBURN 




RND 


RUN 


SAÏEnomlichier 


1RS 80 
modèle» 1 et 3 


READvar [.var. ] 


REM ■:ir taire 


RENUM aligne 


RESTORE 


RESUME |n" ligne] 


RETURH 


PIGHTSioan. 
longueur) 


RND(arg) 


RUN [n-ligne] 


SAVE.nw.teh.» 
CSAVE) 


Vie 10 


READtari.var...; 


REM commentaire 




AESTOAE 




RETURN 


RIGHTt (chain, 
longueur) 


RND(arg) 


RUH (N* ligne) 


■■■■■■■-■■-. ■' ■ 

8 [cassette, cl 
CSAVE) 


IX 11 




AEMcommenlaire 








RETURN 


chain (début TO) 


RHD 


RUN j-.n» ligne,-. 




IXSpocIrutn 


READvar i.var...] 


FEM commentaire 




RESTORE 




RETURH 


chain (début TO) 


RNO 


"Cb 




mj. : atguraeitl runàvju; ; lie. : eipresacn : cMi(n} : ran; 


tnt$atr*t*m*&m 


mS(sai)lei;ll;irMie-jnî':laifleOf i !ij'nè"e: ■ Kc.ix^tî.^i^am^. 



22 



23 



TRADUIRE ET ADAPTER VOS PROGRAMMES 

Instructions Basic (SCRN à SWAP) 



CENT INSTRUCTIONS BASIC A LA LOUPE 

Instructions Basic (SYSTEM â WIDTH) 



Ordre Basic 

(Basicws) 

Ordinateur 
Individuel 


SCRN 

(ECRAN) 

indique la- ■ ■ 
couleur'dupoint 
i i , j , i 
spéciliées . 


SEO$ 

(EXTRÎ) 
Exlrajtune 

chaîne d'un plus 
Srande 


SON 

(SON) 


SlN 


SPC 

fog 

Génère une 
chaîne d'espaces 


SSH 

(RAC) 
Racine carrée 


STOP 

(ARRET) 


STRiNé$ 

(CHAIN®) 
jènêreurte: 
chaîne 


ST«$ 

(tm ' 

Change une 
expression 

lurr-ériquftsn 
une chaîne "' 


SWAP 

(ECHANGE) 

Echange le 
cMenude deux 
variables . 


«Ile» 
(Tandy MC 10} 






"" 






SÛR [exp) 


STOP 




STRt(arg) 




*«* 


SCRN [., y] 




SGN(e.p) 


'"*"" 


SPC (arg] 

(NilK avst ' i; : fi 1 


SQR[elp) 


STOP 




STFB(arg) 




Atari 400 






"'"" 


■ 




SQR(exp) 


STOP 




STFBIatg) 




tim 






~" 


"" 




SGR(exp) 






STR$(ar|| 




IIC 


POINT [x. y) 




[exp) 


SIN(exp) 


SPC (arg) 
(■!! Ea:??i 


SQR(exp) 


STOP 


(longueur, drain) 


STR$(arg) 




Commodore U 






S3„ 


SIN(Bxp) 


SPC(aig) 

(Misé avec PRINT) 


ms«t» 


STOP 




STR$(arg| 




Dal 


SCRN I y 




SGN(exp) 


M 


SPC (arg) 


son(B.p) 


STOP 




STHI(ar g | 




Dragon J2 






SGN|Eip) 


SIN(exp) 




SÛR (exp) 


STOP 


STRINGS 
[longueur, chain) 


STR$[arg) 




Hector 

(ixïTdor) 


POINT)., y) 




SGN(exp) 


1 (exp) 


SPC (arg) 


*"**' 


STOP 




STRÎ(arg) 


SWAPvarl.var! 


■* BK 






SGN|Exp) 


m 




SQR(exp) 


STOP 




STR$(arg) 


SWAPmrl.fta 


HZ IDA 






SON (exp) 


SIN(eïp) 




SQH(exp) 


STOP 




STFÎ(urg) 




Orlcl 


SCRN (..y) 




SON (exp) 


SiN(«pj 


SPC (arg) 


-son («pi 


stop 




STRt(arg) 




PEI/CIM 






SGtJ|p.p) 


m 


SPCia-gJiu;:* 
ans PRINT] 


son(fip) 


STOP 




STRÎIarg) 


autre signification 


IhomwnW 


POINTU, y] 




SON (exp) 




SPC (arg} 


SQR(exp) 


STOP 




STRÎIarg) 




tu» 




SEGÎ (chain. 
arg 1.atg2) 


SON (exp) 


SIN[a>p) 




SOR («pi 


STOP 




STRtlarg) 




IKSO 
modèles 1 et 1 






SON (exp) 


81 


SPACESlarp) 


SÛR (exp) 


STOP 


STPJNGÎ 

lOïlÇ.Hi 


STR$(arg) 


SWAPrarl.vara 


Wc20 






SGN(eip) 


-SIN(exp) 


SPCiarg) 
!-..ifcavKppiNTi 


SOR(eip) 


STOP 




STRÎ(arg) 




IX 11 






SGN(exp) 


SIN(exp) 




SQR(exp) 


■ STOP ■ 




STRÎ(arg] 




IXSpettrum 


™'"' 




"" 


„,», 




SOR(exp) 


STOP 




STRÎ(arg) 




Kg, : êtfgument numérique ; expt: expression.; Ghaî(n) : chainenurreriqoe ; adr : adressé ; vw : variable (non de variable) ; t]i indique une clause Option*>"l "quuatentes. 



Ordre Basic 

; (Basicois) 

Ordinateur 
Individuel 


SYSTfM TAN TÉXT TROFF TRON USR VAL WAIT MU/MB WIDTH 
SYS) (TAN) (TEXTE) (TROFF) ■ (TRON) (USR) (NBRE) (ATTENDS) (TANTOUE (LONGUEUR) 
Mie le Basic Tangerne Passageen . Annule TRON Visualise, en Transmetune ' Dcnnelavaleur Suspend un . FAIRE) : - : Définitla ■ 
«ui revenir ' mode TEXTE ■ exécution, le n° ..valeuràun . numérique d'une programme pour Tantque...taire longueur rriax. 
lans lesyslème delignes programme en chaîne un temps donné des lignas 
d'esploiiaiion ' exécutées langage machine imprimées 


«lice 
(Tandy IK 10) 




AN (exp) 


















jkppti 




TAN (exp) 


TEXT 


NOTPACE 


TRACE 


U5R(param.) 


VAL (chain) 


WAIT adr. 
argl [,arg2] 






Atari MO 


BÏE 




GRAPHICS arg 






USR (param.) 


VAL (chain) 






POKESJval 


Atom 




TAN ex» 








LINKadr 


VAL (chain) 


WAIT I/6C 


DO ordre UNTIL 

condition 
(Icgique inverse) 




ne 


•DISK 


TAN (exp) 


MODE ira 


TRACE OFF 


^ 


USB (param.) 


VAL (chain) 




REPEAT ordre 

■JNIILCsr.d-liC-:î 




CémnwdmW 




TANtoxp] 








USR (param.) 
(cf. manuel; SYS) 


vAL(diaJn) 


WAIT adr, 


ordres WEND 




Dal 




TAN [exp) 


MODE le) 


TROFF 


™ 




VAL (chain) 


WAIT [HEM] adr. 
.WAIT TIME arg 






OrogwM 




TAN (exp) 




TROFF 


TRON 


USR (param.) 


VALIdian) 








Hector 
(«i Victor) 




TAN (exp) 








USR adr |, registre] 
Lparm) 


VAL (chain) 








lyni 




TAN (exp] 


Autreutltatwn 


TRACE OFF 


TRACE ON 




VAL (chain) 


PAUSE exp 


WHILErarWitlrm 




HUA 


BYE 


TAN («p| 








USR (param.) 


VAL (chair) 








Oriel 




TAN (Bip) 


TEXT 


TROFF 


TRON 


S(parm) 


VAL(chain| 


WAIT arg 

NB arg en lOC de 

sonde 


REPEAT «Je 
UNTIL exp 


POKEJ9.MI 


m/ciM 




TAN(eip) 




OFF 


TRACE 


LSB xrjam.KI 
manuel: SYS) 


VAL(ctan) 


WAIT art. 

argl. arg! 


n'-ilLEcœdijO'is 
ordres WEND 




TrwrntonI07 




TAN (exp] 




TROFF 


TRON 


USR (param.) 


VAL (chain) 








tlH 




TAN (exp) 




UNTRACE 


TRACE 




VAL (chain) 








TBIO 

modèlulelJ 


SYSTEM 


TAN (exp) 




TROFF 


TRON 


I.SFI : para m.) 


VAL(crain) 


masque, sélection 






VklO 




TAN (exp) 








USR(param) 


VAL(ctain> 


argl, arg 1 






an 




TAN (exp) 








USR (adr) 
(d.CALL) 


VAL (chair) 


PAUSE arg 




" 


Ulpectrunt 




TAN (exp) 








iJSR(adr) 
(cl CALE) 


VAL(cna,n) 


PAUSE arg 






■ erg. ■ arflumènt nuruériqué ; »ïik; èxpressior) : «hei(nh chaire numérique ; adr : adresse ; vw i variable (îiom de variable) ; [.] : indique une clause pptiorrielle ; 1 : indique desclauses.equivalentes. ■■ 
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-logorrhée- 



libérez votre vocabulaire grâce à 

une nouvelle science : 

la logotronique 

et un programme «académique» 
pour letudier 



La logotronique s'est impo- 
sée tout récemment comme 
une des branches mon- 
tantes des sciences du 
langage. Noussommes heu- 
reux d'ouvrir aujourd'hui 
nos colonnes aux deux 
«pères» du Logotron, dont 
nous révélons, en exclusi- 
vité pour nos lecteurs, le 
fonctionnement. 

La logotronique est l'étude 
expérimentale de la stabilité 
des formes linguistiques gé- 
nérées par ordinateur. C'est 
un sous-ensemble de la litté- 
ratronique, dont l'inventeur 
est le professeur Escarpit, 
que nos lecteurs connais- 
sent certainement. 

^ Le thème général de la li- 
~ tératronique est la synthèse 
| du langage : poèmes, ro- 
^ mans, discours techniques, 
| philosophiques, ou même 
| politiques (voir l'excellent 
| ouvrage du professeur Es- 
I carpit, paru il y a quelques 
I années : Le Littératron. 





Plus modestement, la logotroni- 
que se propose de créer des mots 
nouveaux. Le monde actuel est en 
pleine mutation, et la demande en 
mots nouveaux se fait chaque jour 
plus vive. 

Les partisans de cette discipline 
de pointe de la linguistique pensent 
qu'il est grand temps de faire écla- 
ter le «carcan du dictionnaire». En 
effet, ces mots du dictionnaire, il a 
bien fallu, au fil des siècles, qu'on 
les crée. Et on ne voit pas pourquoi 
nous accepterions un figement bru- 
tal de ta langue, bien modestement 
enrichie par les sporadiques contri- 
butions de l'Académie. 

Le logotron est donc u n vaste pro : 
gramme de synthèse lexicologique. 
Le programme donné en annexe de 
cet article (page 29) peut générer 
68 000 mots. Et ce n'est qu'un dé- 
but. Il est apparu, de fait, que nous 
vivions à la surface d'un véritable 
gisement sémantique à peu près 
inexploité, et que nos travaux ont 
mis à jour tout récemment. 

Il reste, bien entendu, à trouver 
un sens à ces mots produits par le 
logotron. L'équipe de l'Institut de 
Logotronique de la Faculté des Let- 
tres d'Aix-en-Provence s'y emploie, 
et on trouvera ci-après un échantil- 
lon de mots, pourrait-on dire « prêts 
à l'emploi ». 

La logotronique s'adresse à tous 
les secteurs du langage, mais, 
d'ores et déjà, un fonctionnement 
thématique est envisageable. 



Les débouchés sont considéra- 
bles et, à une époque où la France 
équilibre à grand peine sa balance 
des paiements, nous pouvons dire 
qu'étant donné l'avance prise, nous 
sommes très bien placés sur le mar- 
ché de l'exportation. 

La logotronique prendra -t-el le 
une place dans notre vie de chaque 
jour ? Grâce à l'avènement des ordi- 
nateurs individuels, nous pouvons 
répondre : OUI. Nous avions les cal- 
culateurs de poches, les ordinateurs 
programmables de poche, les ma- 
chines à traduire de poche. Dans un 
avenir que nous espérons proche, 
nous aurons dans la main des UL 
(unités de lexicosynthèse) qui, sous 
une simple pression de touche, 
fourniront toute une gamme de 
mots propres à enrichir notre dis- 
cours, notre conversation. 



Résultat 

des premières 

recherches 

Voici un bref échantillon des mots 
qui portent maintenant le label de 
l'Institut de Logotronique. 
Ambulochrone : qui a la faculté de 
pouvoir se déplacer dans le temps. 
Bibliostat : presse-livre. 
Bactériomancie : prévision de l'a- 
venir en regardant dans un micro- 



dans les stations de sports d'hiver, 
Chronothérapeuthe : médecin qui 
soigne en laissant faire le temps. 
Cosmophobe : se dit de quelqu'un 
qui ne peut pas supporter l'Univers. 
Cératocéphale : cocu. 
Chronophage ': personne qui vous 
prend votre temps (mangeuse de 
temps). 

Cosmogène : se dit d'une situation 
où l'Univers ne demande qu'à appa- 
raître. 

Cryptodyne : véhicule dont le 
mode de propulsion est caché (sou- 
coupe volante). 

Cosmorrhée : création divine. 
Elastolithe : variété de pierre élas- 



terre. 

Episcodrome : terrain d'atterris- 
sage pour évèques. 
Hypolithe : sous-pierre. 
Hémiscope : lunettes dont un verre 
est opaque, pour ne regarder qu'à 
moitié. 

Hémigame : à moitié marié. 
Héliorragie : éruption solaire. 
Logomètre : pour discours mesu- 
rés. 

Logothérapie : psychanalyse. 
Logostase : quand on n'a plus rien à 
dire. 

Latérograde : personne marchant à 
côté de ses chaussures. 
Logotome : pour faire des phrases 
hachées. 

Micoclaste: casseur de champi- 
gnons. 

Monoscope : petit cylindre en ma- 
tériau quelconque, pour ne regarder 
qu'une seule chose à la fois. 
Mésographe : pour écrire entre les 
lignes. 

Nécrogramme: faire-part de dé- 
cès. 

Pornotropisme : goût pour la litté- 
rature porno. 

Pseudothérapeuthe : psychana- 
lyste. 

Panmanie : manie de tout. 
Panscaphe : véhicule pour aller 
n'importe où. 

Pseudopathe : personne qui n'est 
pas vraiment malade. 
Phallostat : slip 

Paléogame : qui se reproduit de fa- 
çon désuète. 

Podoclaste : casse-pieds. 
Pangamie : tendance à épouser 
tout le monde. 

Paralléloscaphe : véhicule pour 
univers parallèles. 
Panphobie : horreur de tout. 
Pyrotope : cheminée. 
Spéléosophie : sagesse des pro- 
fondeurs. 

Statodynamique : étude de l'évolu- 
tion des états stationnâmes. 
Théodyne : machine marchant par 
l'opération du Saint-Esprit. 
Théotope : paradis. 
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impression du motcréé par 

le logtsfïtjn 
etdeses rad^s sémantiques 



Mettez-vous 
à la 
logotronique 



La liste du programme 



Le programme logotron est 1res 
simple. Il est constitué de deux ta- 
bles de DATA. La première table 
contient des débuts de mots, qui 
doivent se terminer par une voyelle 
Exemple : aero, latero, hydro, etc. 
La seconde contient les fins de 
mots. On les combine aléatoire- 
ment. Les données sont entrées par 
couples, car le programme fournira 
en même temps la signification éty- 
mologique des mots créés. Exem- 
ple : clepto, dérober... 

Et, dans la seconde table : gêne, 
formation ... 

Les DATA sont donc lues par cou- 
ples : 90 READ XS, YS 

On constitue quatre tables : PS (I) 
sont les débuts de mots. SS (J) sont 
les fins de mots. POS (I) et SOS (J) 
sont les significations de ces deux 
racines, empruntées au grec ou au 
latin. Le programme a été écrit pour 
un Apple II. L'instruction 1 60donne 
la racine du générateur de nombres 
aléatoires. 

Si on dispose d'une imprimante, 
on peut sortir immédiatement une 
suite de mots (logorrhée). Le reste 
est... littérature. 

On pourrait fabriquer un logotron 
avec simplement deux boîtes conte- 
nant des cartons, et en piquant dans 
ces boîtes au hasard. Mais c'est un 
peu lent. Seul l'ordinateur est à 
même de produire un tel déferle- 
ment de mots inconnus. 

Une science 
déjà officialisée 
par la télé 

Le premier mars 1 980, nous avons 
présenté le logotron, né lors d'un 
après-midi pluvieux, à l'émission 
Temps X, sur TF1 . Pour l'occasion, 
nous avions mis les mots du para- 
graphe 2 et leur signification dans 
un autre secteur de la mémoire. Le 
programme incluait aléatoirement 
ces mots dans sa production, et un 
FLASH les signalait au téléspecta- 
teur. Ceci était alors interprété 
comme une entrée dans le « champ 
sémantique » de l'appareil qui 
après « activationdeson module se 
mantique», «calculait »la significa 
lion. Le tout agrémenté de clicks si 
mu la n tune imprimante inexistante 
et de gargouillis musicaux du mei 
leur effet. 

Nous fûmes assez effrayés par le 
courrier reçu suite à cette émission 
Si l'on excepte une lettre d'Escarpit, 
ravi de trouver là l'illustration de 
son roman picard. Le Littératron, 
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Les exemples d'exécution utilisés à TF1 



LOG0TR0N 1 

UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 

ACTIVATION DU MODULE SEMANTIQUE 
PARALLELLOS CAPHE 
MOT DE 16 LETTRES 

CODE:SV / 41632.9998 
SIGNIFICATION CALCULEE: 
VEHICULE POUR VOYAGER DANS LES UNIVERS 
PARALLELLES 

LOGOTRON 1 

UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 

ACTIVATION DU MODULE SEMANTIQUE 
CLAUSTROCOSME 
MOT DE 13 LETTRES 

CODE:PF / 8524.24982 
SIGNIFICATION CALCULEE: 
UNIVERS DU POUSSIN 



LOGOTRON 1 

UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 

ACTIVATION DU MODULE SEMANTIQUE 
CHRONO THERAPEUTE 
MOT DE 17 LETTRES 

C0DE:GP / 7682.74315 
SIGNIFICATION CALCULEE: 
MEDECIN QUI SOIGNE EN LAISSANT FAIRE LE 
TEMPS 

LOGOTRON 1 

UNITE EXPERIMENTALE DE 
LEXICOSYNTHESE 

ACTIVATION DU MODULE SEMANTIQUE 
CRYPTODYNE 
MOT DE 10 LETTRES 

CODE:RW / 42672.4899 
SIGNIFICATION CALCULEE: 
VEHICULE DONT LE MODE DE PROPULSION DE- 
MEURE CACHE. EX SOUCOUPE VOLANTE 



; pêche 

nous avons trouvé 
le monstre du Loch Ness 



Outre-Manche, il est difficile de déterminer si le 
sport national est : 

1 Boire du thé 

2 Etre membre d'un club 

3 Se prendre pour Sherlock Holmes 

4 En restant flegmatique 



5 Ou aller pêcher le monstre du Loch Ness 
Depuis le temps qu'ils le cherchent, ce monstre! 
Une véritable artésienne. Nous avons quant à nous 
résolu le problème et choisi de le laisser résider dans 
un coin de la mémoire d'un TRS 80. Le trouverez- 
vous ? Brrr !!!! 




tous les gens sont tombés dans le 
panneau, et des individus fort res- 
pectables souhaitaient avoir plus de 
détails sur la structure de ce fameux 
« module sémantique. » 

Marc concluait : « Nous croyions 
faire un canular, et nous nous re- 
trouvions avec une science sur les 
bras : la logotronique. » 

Oue conclure? Que la télévision 
est un instrument puissant. Le petit 
écran, un titre de « professeur », de 
« directeur de l 'Institut de Logotroni- 
que » ; un ordinateur, et voilà des pa- 
on L'Ordinateur Individuel 
OU Dossier Programmes n° 54 bis déc.1983 



rôles d'évangile. Nous avons re- 
noncé prudemment au canular nu- 
méro 2: « l'extrapolateur histori- 
que» (programme chargé de 
«calculer le journal du jour à partir 
de celui de la veille », pour palier une 
éventuelle panne des télex des jour- 
naux. Nous avions imaginé des ru- 
briques comme : «prévisions politi- 
ques pour la journée de demain »). 

Nous proposons donc aux lec- 
teurs de L'Ordinateur Individuel de 
nous aider à constituer, dans un 
concours permanent, un diction- 



naire de logotronique. Bien sûr, 
vous obtiendrez, pêle-mêle, des 
mots auxquels vous trouverez diffi- 
cilement une signification : sono- 
phone ou visioscope, qui seront 
alors interprétés comme étant des 
OVNI (c'est-à-dire des objets ver- 
baux non identifiés), plus rarement 
des mots existants déjà, et quelques 
trouvailles succulentes. Bonne 
pêche. 

Jean-Pierre Petit 
et Marc Arondel 
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pour vos luttes de classes 

un morpion japonais 



Vous souvenez-vous du morpion ? Les Japonais 
appellent ce jeu Gomoku, mais en France qui n'a 
pas joué au moins une fois au morpion durant sa 
scolarité? C'était bien pratique : il suffisait d'un 
crayon, d'une feuille de papier quadrillée et d'un 
adversaire... D'ailleurs, je suis sûr qu'en ce mo- 
ment même, vous avez tout ce matériel sous la 
main... sauf peut-être un partenaire?! Ce n'est 
pas grave : un petit programme y pourvoiera 



Nous nous sommes désormais 
fixés un but; écrire un programme 
qui joue au morpion (1). Soyons am- 
bitieux : il nous faut un programme 
qui joue "bien" et qui nous offre 
une résistance suffisante. Mais ne 
nous emballons pas : il faut un pro- 
gramme court et simple, les articles 
de David Levy sont passionnants, 
mais je n'ai pas eu le courage d'é- 
crire un programme complet qui 
« voie » cinq ou six coups à l'avance. 
D'ailleurs un programme complet 
réfléchirait sans doute pendant des 
heures ! Ce serait beaucoup d'éner- 
gie dépensée pour un jeu aussi sim- 
ple En effet, quoi de plus bête que 
d'aligner cinq croix ? 

« De plus bête »? Voire ! Après un 
instant d'euphorie, on se rend 
compte que ce n'est pas si évident. 
3 Puisque nous sommes exigeants, 
a c nous voulons que ce programme 
3 joue toujours une cinquième croix 
r! quand quatre sont déjà posées si- 
| non comment diable arriverait-il à 
3 gagner ? Il faut aussi qu'il puisse pa- 
I rer les menaces les plus élémen- 
| taires de son adversaire, c'est-à- 
| dire compléter avant lui un aligne- 
£ ment de quatre de ses pions. Et puis 



e du morpion /ouée 
sur un espace limité à 10 cases sur 10 Le go- 
moku se ioue sur 19 ■ 19 cases. 



même façon qu'un humain : en re- 
gardant le jeu et en déterminant les 
bonnes cases. Ou comme dit David, 
nous allons essayer d'avoir une 
fonction d'évaluation suffisam- 
ment bonne pour qu'elle nous per- 
mette d'avoir une profondeur d'éva- 
luation très réduite, ici un demi- 
coup. 

Le but du jeu est d'aligner cinq 
croix (chaque joueur en pose une à 
son tour, etc.). Il y a exactement 192 




il faut que le programme sache non 
seulement exécuter des menaces 
mais aussi en créer, qu'il évente 
celles de son adversaire, et, pen- 
dant que nous y sommes, qu'il 
sache bien, se placer quand rien 
d'immédiat n'est en vue. 

Comment un programme peut-il 
faire tout cela sans calculer sur plu- 
sieurs coups ? Et bien il le fera de la 



façons d'aligner cinq croix sur un 
quadrillage 10 - 10, c'est-à-dire 
1 92 quintuplets de 5 points alignés. 
Le but du ieu est de remplir un (2) de 
ces quintuplets avec ses propres 

12) Le problème sentit nias cumplexe du ni-: le 
cas de la variante du morpion où la partie ne 
s'arrête pas au premier alignement de 5. 
mais au conliai'e continue II faudrait alors 
évaluer à plusieurs coups de protondeur. 



Programme : jeu du morpion 
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croix et ceci dans n'importe quel or- 
dre, ce dernier point étant très im- 
portant. 

Le programme va donc examiner 
chacun de ces 192 quintuplets et, 
suivant ce qu'ils contiennent, les 
cases restées libres se verront attri- 
buer une bonne ou une mauvaise 
note, puis l'ordinateur jouera sur la 
mieux notée. Puisque plusieurs 
quintuplets différents contiennent 
une même case, celle-ci se verra at- 
tribuer la somme des notes reçues 
vis-à-vis de chacun des quintuplets. 

Par exemple si un quintuplât est 
formé de quatre croix (l'ordinateur a 
les croix, et le joueur les ronds), il 
est très intéressant de jouer sur la 
cinquième case, nous lui attribue- 
rons une note de 1000000 (!) pour 
encourager l'ordinateur a s'y placer. 
Si par contre il contient quatre 
ronds (les nôtres) il faut que l'ordi- 
nateur nous empêche de nous y 
mettre en s'y posant avant nous. Ce 
sera donc une bonne note, mais elle 
ne doit pas être meilleure que la 
précédente car sinon l'ordinateur 
pourrait oublier de gagner pour (bê- 
tement !) parer une de nos me- 
naces : adjugeons-lui 10000 « seu- 
lement ». 

Si un quintuplet contient au 
moins une croix et un rond, aucun 
des adversaires n'a le moindre es- 
poir de s'y installer victorieusement 
un jour, une note de en est le juste 
châtiment. Il n'y a donc qu'à exami- 
ner les cas suivants : 
. 3 croix et 2 cases vides, c-'est très 
bon d'y jouer car cela crée une me- 
nace, la note sera de 100. 
. 3 ronds et 2 cases vides, il faut 
empêcher l'adversaire de nous me- 
nacer mais il ne faut pas se détour- 
ner d'objectifs plus importants .une 
note de 10. 
. et ainsi de suite en descendant. 

C'est un système très pratique: 
l'ordinateur représente dans sa 
mémoire une case vide par un 0, 
un rond par un 1 et une croix par un 
5. Il lui suffit d'additionner les cinq 
éléments du quintuplet pour 
connaître son contenu à une per- 
mutation des éléments près, mais 
nous avons dit que cela n'avait 
aucune importance (3). Une table lui 
donne alors la note correspondant à 
cet arrangement, il l'ajoute à un ta- 
bleau qui contiendra la note de cha- 
que case quand tous les quintuplets 
auront été examinés. Il paraît y avoir 
un défaut dans cette position (voir 
figure 1 page précédente). Il est 



(3) Notez que le 
peu! se produire puisqu'alors le programme 
aurai! perdu, ei qu'il aurai! signalé ce /ai! : il 
n'a donc pas si /iniei Los inquiets pourraient 
meltre 6 poui chaque croif, à condition de 
ciianqm ,'e prnqramme en conséquence (ta- 
bleau V). 



clair qu'en jouant en 1 , l'ordinateur 
crée une double menace imparable 
et gagne, mais avec notre système, 
en examinant le quintuplet (0, 1 , 2, 

3, 4), l'ordinateur attribuera la 
même note de 10000 aux cases et 
1 , or elles ne sont absolument pas 
équivalentes car en jouant en 0, on 
permet à l'adversaire de s'en tirer 
en jouant en 1 . 

Regardons ceci de plus près : la 
case reçoit bien la note de 1 0000, 
mais la case 1 reçoit elle 20000 
points car non seulement le quintu- 
plet (0, 1,2, 3, 4) mais aussi (1,2, 3, 

4, 5) lui attribuent 10000 points. En 
fin de compte l'ordinateur jouera 
toujours en 1, et gagnera. 

C'est par ce principeque l'ordina- 
teur parvient à se placer à l'inter- 
section des alignements intéres- 
sants. Ce système fait du pro- 
gramme un adversaire trèscoriace, 
pas invincible, mais... difficilement 
vaincu. De plus il est très simple à 
mettre en œuvre ; voyez, le pro- 
gramme est très court, la partie qui 
« réfléchit » n'occupe que 25 lignes. 

Quelques 
commentaires 
sur le programme. 

.De 10 à 95, on a affaire au 
programme principal selon une ar- 
chitecture classique. 
. De 100 à 500 \a phase d'\n\ûa\tsa- 
tion. Les possesseurs d'un TRS 80 
doivent ajouter en 115 POKE 
16553,255 et peuvent y mettre éga- 
lement DEFINT A, C-P, W-Z pour 
améliorer les performances. 

De 600 à 690 l'initialisation de la 
partie (pour qu'on puisse en jouer 
plusieurs d'affilée], 
. De 700 à 850 iaparve proprement 
dite : on détermine qui joue en pre- 
mier (720-730), et on va en 800 
quand la partie est terminée. L'affi- 
chage du résultat de la partie se fait 
en 830, suivant la valeur de F (1, -1 
ou 2). 

. De 500 à330 l'épilogue du jeu. On 
pourrait rappeler le nombre de par- 
ties nulles et gagnées par chacun, 
mais ceci risque d'irriter les joueurs 
trop souvent battus par le pro- 
gramme. 

. A partir de 1000, le jeu du pro- 
gramme. On explore les 1 92 quintu- 
plets suivant les 4 directions possi- 
bles en 1090-1 120, puis on choisit 
la meilleure case. La ligne 1220 
permet de choisir au hasard entre 
plusieurs cases ayant la même note 
mais on peut la supprimer si l'on n'a 
pas de fonction RND ou si l'on sou- 
haite accélérer le programme. 
. La partie cruciale du programme 
est le sous-programme 1500: l'in- 
térieur de la boucle est effectué 1 92 
fois par coup, et les deux boucles sur 



P le sont 5 fois plus. Amateurs de 
langage machine, c'est ce sous- 
programme qu'il vous faut atta- 
quer ; attention car si AetZ sont en- 
tiers, V, Z et Q ne le sont pas. 
. L'adversaire {oue en 2000 à 2220, 
son coup est bien entendu vérifié, 
. Le sous-programme 9000 est le 
sous-programme OUI ou NON clas- 
sique 

. Le sous -programme 8000 assure 
l'affichage, chacun l'adaptera à son 
ordinateur pour que ce soit joli 1 

Par exemple, pour ie rendre plus 
agréable que ce continuel déroule- 
ment, le jeu doit rester fixe et seule 
la case concernée doit se transfor- 
mer. Il faut aussi écarter les pions 
pour y voir un peu plus clair mais 
ceci demande un travail propre à 
chaque matériel utilisé et nous lais- 
sons le soin aux utilisateurs de se 
débrouiller avec leur engin. 

Une idée pour s'approcher de la 
perfection serait d'écrire un 
deuxième programme en chan- 
geant les valeurs des lignes 330 et 
380, puis d'opposer les deux pro- 
grammes et enfin de ne retenir que 
les valeurs du vainqueur en les 
considérant comme plus proches de 
la réalité. Si vous faites des décou- 
vertes à ce propos, communiquez- 
les ! Faites-nous aussi part des 
valeurs qui permeltentà la machine 
de «cafouiller » le plus lamentable- 
ment, et donc à l'homme de gagner 
à tout coup : on peut ainsi avoir un 
jeu à difficulté variable. 

Et si vous désirez ensuite rendre 
votre jeu plus intéressant, plus cap- 
tivant et plus difficile, lancez-vous à 
l'attaque du Gomoku japonais qui se 
joue sur un damier de jeu de go, soit 
un univers de 19 X 19 = 361 inter- 
sections et, petit détail, il est interdit 
de créer un ensemble de pions 
contenant 2 lignes de 3 pions libres 
(ronds ou croix), ensemble qui per- 
met de gagner dans la plupart des 
cas au morpion français. 

Pour les fanatiques, le gomoku 
possède lui-même des variantes, 
dont la variante ninuki où l'on retire 
du jeu des pions posés : elle a été 
présentée par notre confrère « Jeux 
et Stratégie » dans son numéro 1 . 

Une autre variante consiste à 
remplir cet univers 19 X 19 dans 
son entier ce qui créera plusieurs 
« morpions » pour chaque joueur, 
celui qui en a le plus étant déclaré 
gagnant. Dans ce cas, deux options 
sont possibles : soit on ne rejoue 
pas, soit on rejoue après avoir ef- 
fectué un -< morpion ». 

Mais avant ces développements : 
vous avez les ronds, votre machine 
les croix ! A vous de jouer ! 

Philippe Schnoebelen 



-cornélien- 



à moi 
compte, deux mots 



Qui ne s'est jamais assis, volontairement ou 
par hasard, un soir vers 19 heures devant un 
poste de télévision présentant l'émission «des 
chiffres et des lettres » ? Peu de gens sans doute. 
Tous ceux qui ont essayé de retrouver « le mot le 
plus long » seront donc déçus par le programme 
que nous présentons car nous n'avons pas en- 
core fini de mémoriser le dictionnaire. En re- 
vanche, ce programme leur permettra de lancer 
bien souvent la phrase «le compte est bon». 



Le programme tel qu'il est conçu 
ne permet pas de faire plusieurs ad- 
ditions successives, mais ce n'est 
dans la pratique qu'un petit incon- 
vénient, et il trouve au moins 95% 
des comptes possibles. Initialement 
conçu sur Pet, il peut fonctionner 
avec le plus pauvre des BASIC. Sur 
Pet, ce programme conclue le plus 
souvent dans les 45 secondes, mais 
il est possible qu'avec certains BA- 
SIC trop lents, le temps de réponse 
dépasse parfois la minute (il lui ar- 
rive de trouver aussi en quelques 
secondes). Dans tous les cas, ce 
programme est réellement très effi- 
cace et beaucoup de candidats du 
jeu télévisé pourraient renverser 
leur situation, si un ordinateur indi- 
viduel pouvait tenir dans une 
poche... 



Rappelons tout d'abord le pro- 
blème. On fournit 6 nombres parmi 
1, 2,... 10. 25, 50, 75, 100 et un 
nombre de 3 chiffres. Le joueur, ici 
l'ordinateur, doit reconstituer ce 
dernier nombre. par des opérations 
simples sur les 6 premiers nom- 
bres. 

Le programme BASIC n'aboutit 
que lorsqu il trouve le compte exact, 
ce qui heureusement lui arrive dans 
la plupart des cas. Le principe est 
assez simple et montrons le sur un 
exemple : soit à trouver 723, avec 
les nombres 4, 5, 6, 7, 8, 9. 



Le progr; 



essaie successi- 



vement (723-4)/5; (723l4)/5; 
(723— 4)/6... jusqu'à trouver un 
nombre entier: ici, l'opération s'a- 
chève pour (723+5)/7= 104. Et la 
méthode reprend: (104— 0)/8= 
13; {13— 4)/9= 1. Ici le processus 
s'achève, et on peut reconstituer 
723 dans l'ordre inverse : 9X1= 9 : 
9+4= 13: 13X8= 104; 104+0= 
1 04 ; 1 04X7= 728 ; 728-5= 723. 

L'affichage supprime les lignes 
inutiles: 

Le compte est bon 

en effet : 

9 +4= 13 

13 X 8 = 1 04 

104 X7 - 728 

728—5= 723 
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Les fanatiques verront vite que 
parfois des comptes évidents 
échappent à la logique du pro- 
gramme. Il ne leur reste donc plus 
qu'à optimiser celui-ci pour dispo- 
ser du temps nécessaire à l'ajout 
des éléments logiques qui permet- 
tront de retrouver la solution dans 
tous tes cas où il en existe une. 



Jean Claude Buisson 
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-tournois- 




I angoisse 
de l'ordinateur 

au moment du penalty 



Avec son nom bien de chez nous, le football est 
depuis longtemps le sport national français. Les 
passionnés du ballon rond, qu'ils fréquentent les 
terrains ou les tribunes (les fauteuils de TV ?), se 
recrutent aussi parmi les «pèessistes ». Quoi de 
plus déprimant alors que d'être à la merci des er- 
reurs des chroniqueurs sportifs quant à l'établis- 
sement du classement. Il est temps de prendre no- 
tre revanche ! Le carnet du supporter en BASIC... 
ou : l'OI au service du ballon rond. 

encaissés. L'équipe dont la diffé- 
rence de buis est la plus élevée est 
classée avant l'autre. 

En cas de nouvelle égalité à la dif- 
férence débuts, c'est l'équipe ayant 
la meilleure attaque, c'est-à-dire 
celle qui a marqué le plus de buts, 
qui précède l'autre au classement. 

Si encore deux équipes sont à 
égalité, elles sont déclarées ex- 
aequo (très improbable) De plus, 
l'équipe championne (celle qui oc- 
cupe la première place à l'issue de 
la dernière journée) participe l'an- 
née suivante à la Coupe d'Europe 
des clubs champions, tandis que 
ses deux (ou serait-ce trois mainte- 
nant?) dauphines participent à la 
Coupe d'Europe de l'U.E.F.A 

Les deux dernières sont relé- 
guées en I e Division, remplacées 
par les premières de chaque groupe 
de 2 e Division. L'antépénultième 



Rappelons d'abord le règlement 
du championnat de France 1 re Divi- 
sion . Il y a N = 20 équipes en lice, 
chaque équipe rencontre deux fois 
chacune des N — 1 = 19 autres, 
une fois à domicile, une fois à l'ex- 
térieur. Par conséquent, le cham- 
pionnat est divisé en (N — 1 ) X 2 = 
N X 2 — 2 = 38 journées compor- 
tant chacune N/2 = 10 matches. 
Un match gagné rapporte 2 points, 
un match nul rapporte 1 point, un 
match perdu ne rapporte rien. Il y a 
donc 2 points en jeu par match , en- 
fin, le classement est fonction du 
nombre de points de chaque 
équipe : l'équipe ayant le plus de 
points est première, l'équipe en 
ayant le moins est dernière. 

En outre, si deux équipes ont le 
même nombre de points, on les dé- 
partage en fonction de leur diffé- 
rence de buts : buts marqués — buts 



doit disputer les matches de bar- 
rage avec le vainqueur des 2 e de 
chaque groupe de 2 U Division, pour 
défendre sa place en 1 ,e Division. 
Le programme assure le traite- 
ment des résultats de tous les 
matches, et donne le classement à 
l'issue de n'importe quelle journée 
Il permet l'examen et la modifica- 
tion de toutes les données. 

Ce programme a été écrit sur Ap- 
ple Il avec disque, en BASIC Micro- 
soft (Applesoft). Seules seront à 
changer pour d'autres systèmes les 
routines d'entrée/sortie (sur disque 
ou sur cassette). Une instruction 
fréquemment utilisée peut se nom- 
mer différemment sur d'autres 01 : 
HOME efface l'écran et renvoie le 
curseur en haut et à gauche. 
Les variables : 
Variables constantes : 
. N : lue en DATA, le nombre d'é- 
quipes en lice, 

. EQ $ (N) : tableau des noms de 
chaque équipe, lus en DATA, 
. JO $ (N X 2. — 2) : tableau des 
dates des différentes journées, lues 
sur disque. 

. Ll $ ; contient 30 « . » pou r la mise 
en page. 
Variables générales . 

MA (N,N) est un tableau de réels 
dans lequel sont stockés les résul- 
tats de tous les matches : 
. MA(LJ)- — R si le match n'a pas 
encore été joué (R est la journée à 
laquelle appartient le match). 



MA (L,J) = + BL BJ, R, c'est-à-dire 
BL X 1 00 + BJ + R/1 00 avec BL le 
nombre de buts marqués par l'équi- 
pe L et BJ le nombre de buts mar- 
qués par l'équipe J. On a donc deux 
chiffres par élément : BL, BJ et R, 

MA (1 I) = s'il n'y a pas de 

match {si L = J ou si L ou J est nul). 

CL % (N,6) est un tableau d'entiers 
(comme l'indique le signe %}conte- 
nant les différents éléments du 
classement : 

CL % (L,0) contient l'indice dans 
ÉQ S de l'équipe classée Lième, 

CL % (L,1 ) contient son nombre de 
points, 

CL% (L,2) contient le nombre de 
matches qu'elle a remportés, 

CL% (L,3) contient le nombre de 
matches où elle a fait nul, 

CL% (L,4) contient le nombre de 
matches qu'elle a perdus, 
. CL% (L,5) contient le nombre de 
buts qu'elle a marqués, 
, CL% (1,6) contient le nombre de 
buts qu'elle a encaissés. 

Autres variables: 

L,J,K : variables de boucles 

L : aussi paramètre de la rou- 

tine 1100 

BL,BJ : buts de l'équipe L et J 
: aussi indice de boucles 

R : valeur d'une réponse 

R,R1 : numéro des journées sur 
lesquelles s'effectue le 
traitement (RI pour com- 
paraison avec R) 

RS : réponse : équipe, ou date, 

ou chiffre 

RS.R1 S : nom des équipes entrées 
au clavier pour un match 

AA : année, MM: mois, JJ : 

jours, MAX: nombre de 
jours dans MM (routine 
1100) 

D$ : variable spécifique à l'AP- 

PLE, employée dans les en- 
trées/sorties sur disque 

Examinons maintenant les sous- 
programmes. 



Tout le programme est organisé 
en sous-programmes plus ou moins 
imbriqués, qui peuvent être de deux 
types : 

. le type procédure, qui ne produit 
pas de résultat mais exerce une ac- 
tion sur les données ou les périphé- 
riques; 

. le type fonction qui, en plus 
d'exercer cette action (éventuelle- 
ment}, produit un résultat (numéri- 
que ou alphanumérique). 

Chacun de ces deux types peut 
demander le passage d'un ou plu- 
sieurs paramètres qui seront soit la 
<• cible » du sous-programme (passer 
L en paramètre provoquera une ac- 
tion sur l'élément L d'un tableau), 
soit des critères d'action (journée R 
pour le classement). Ces concep- 
tions, directement issues de PAS- 
CAL, ne sont utilisables que de fa- 
çon très primitive en BASIC. 




Voici une description de tous les 
sous-programmes dont on remar- 
quera qu'ils sont présentés dans 
l'ordre inverse de leur appel pour 
des raisons d'optimisation. 

1) OUI ou NON: 
numéro : 1000 



2) choix ou menu : 
numéro : 1600 



3) entrée MA (N,N): 
numéro : 2300 



4) entrée JO $ (N X 2 - 
numéro : 2700 



Ce programme ne s'applique évi- 
demment pas qu'au championnat 
de France de football de 1">Divi- 
sion. En changeant les DATAs. 
(nombre et noms des équipes), il 
s'applique à tout tournoi appliquant 
le même type de règle. Pour un 
tournoi' d'échecs, par exemple, il 
suffira de diviser le nombre de 
points par deux. 



5) sortie de MA (N,N): 
numéro : 2500 

6) sortie de JO S (N X 2 — 2): 
numéro: 2800 

7) entrée de la journée : 
numéro : 1200 

8) entrée du résultat match {L,J): 
numéro : 3200 

9) affichage "journée », R: 
numéro": 2900 

10) affiche une ligne de match: 
numéro : 3000 

/ 1 ) affiche une ligne de résultats : 
numéro : 3100 

12) liste des dates 
numéros : 1400 

13) liste des équipes: 
numéro : 1500 

14) vérifie la date: 
numéro : 1 100 



16) initialisation du classement : 
numéro : 700 



1 7) traitement des résultats : 
numéro : 300 



18) tri «bulle»: 
numéro : 600 



19) inversion: 
numéro : 500 
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20) initialisation : 
numéro ; 1700 
paramètres : — 
résultat : — 

appelle : 1000 (oui ou non} 

2300[input MA (N,N)] 
2700[inputJO S(NX2 — 
2)] 

1 900(1 re initialisation) par 
GOTO 
appelé par : (programme princi- 
pal) 

Ce sous-programme important 
initialise toutes les données. En 
particulier, il effectue un GOTO 
1900 en cas de V e utilisation du 
programme. 

21) V e initialisation : 
numéro : 1900 
paramètres : — 
résultat ; — 

appelle : 1 100 (vérifie la date) 

1 500 (liste des équipes) 
1200 (input journée) 
appelé par ; par l'intermédiaire de 
1700 
variables : L : J, K : boucles 

R$, R, R 1 $, R 1 :équipes 
et leurs numéros 
BL, BJ : boucles 
Dans ce sous-programme, on 
rentre le calendrier, épreuve assez 
fastidieuse qui nécessite l'entrée au 
clavier de 380 mate hes. Autant dire 
que, au début au moins, le nom des 
équipes en DATA a intérêt à être 
bref. Il met en drapeau MA (0,0) à 1 
de façon à ce que 10000(fin) sauve 
le tableau. Il sauve également JO s 
(N X 2 — 2). Il comporte aussi une 
routine de vérification d'erreur 
(21 20 à 2200)maisëtleesttrès élé- 
mentaire puisqu'elle vérifie que 
chaque match appartient à une 
journée, et seulement cela. Elle ne 
vérifie pas qu'une équipe joue deux 
matches lors de la même journée 
par exemple. Les améliorations ici 
sont nombreuses. 

22) entrée des résultats: 
numéro : 5000 
paramètres : — 
résultat : — 

appelle : 1000 (oui ou non) 

2900 (print «journée», R) 
1 200 (input journée) 
3 100 (affiche une ligne de 
résultats) 

3200 (input résultat 
match L, J) 

1 500 (liste des équipes) 
appelé par : (programme princi- 
pal) 

variables ; R $, R 1 S : équipe- L, J 

leur numéro 

K : boucle 

Ce sous-programme parcourt 

tous les matches et en demande le 

résultat s'ils appartiennent à la 

journée choisie, en informant au 

préalable l'utilisateur si ce match a 

déjà un résultat (si on rentre les ré- 




sultats par journée), on demande de 
la même façon le résultat du match 
choisi (si on rentre les résultats par 
match). 

23) affichage des résultats d'une 
journée : 

numéro : 6000 

paramètres : — 

résultat : — 

appelle : 1 200 (input journée) 

2900 (print «journée», R) 
3 100 (affiche une ligne de 
résultats) 

appelé par : (programme princi- 
pal) 

variables : L, J : boucles 

24) résultat d'un match : 
numéro : 7000 
paramètres : — 
résultat : — 

appelle : 1500, 2900, 3100, 1000 
appelé par : 

C'est le même sous-programme 
que le précédent, mais sur un match 
seulement. En 7900 se trouve un 
point d'entrée spécial de la routine 
8000(affichage du classement), ac- 
cédé par les trois précédentes, et 
qui donne le classement à l'issue de 
la journée R. 

25) affichage du classement : 
numéro : 8000 

paramètres : — (R journée si accès 

en 7900) 

résultat : — 

appelle : 800 (classement) 

1000 (oui ou non) 
appelé par : (5000, 6000 et 7000 
à travers 7900} 
variables : R : journée, L, J : boucles, 

R $ ; des blancs 

K : le nombre de matches 

joués 
Ce sous-programme effectue 
l'affichage et la mise en page du ta- 
bleau de classement. Il affiche une 
colonne de plus que celles conte- 
nues dans CL%: ce sont les 
matches joués dont le nombre est 
égal, pour chaque équipe, à la 
somme des matches gagnés, nuls 
et perdus. Le classement est établi 
pour la journée R si on utilise le 
point d'entrée 7900, et pour la der- 
nière journée si on entre en 8000. 
Cette routine ne calcule le classe- 
ment que s'il n'est pas déjà contenu 
dans CL %. On peut ainsi gagner la 
minute d'attente quand elle n'est 
pas nécessaire. Cela arrive lorsque 
la journée demandée est égale à 
celle contenue dans CL%ou quand 
CL % contient le dernier classement 
et que la journée demandée est pos- 
térieure. 

26) fin : 

numéro ; 10000 
paramètres : MA (0,0) 

appelle : 2500 [output MA (N,N)] 
appelé par : (programme princi- 
pal) 
variables : — 
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Ce sous-programme sauve le ta- 
bleau des matches sur disque si on 
l'a modifié. Il se termine par un END 
et non par RETURN. Sur l'Apple, 
après avoir sélectionné l'option fin, 
il est possible de revenir au pro- 
gramme en tapant RETURN avec 
toutes données intactes. Cela per- 
met une sauvegarde anticipée. At- 
tention, le SED refusera d'effectuer 
une nouvelle sauvegarde si un à IN- 
PUT» n'a pas été effectué entre 
temps. Cela n'est pas gênant puis- 
que l'option 1 ) utilise input. 

27} calendrier d'une équipe: 

numéro : 11000 

paramètres : — 

résultat : — 

appelle : 31 00 (affiche une ligne de 
résultats) 
1 500 (liste des équipes) 

appelé par : (programme princi- 
pal) 

variables : L, J : boucles 

R : numéro de l'équipe, et 
boucle 

R s : équipe et réponse 
K : échange (intermé- 
diaire) 

28) correction du calendrier : 

Ce sous-programme n'apparaît 
pas au menu. Il s'appelle par RUN 
12000. Il s'emploie après 11000 
quand on désire corriger des er- 
reurs. Il s'agit en fait d'un pro- 
gramme dans le programme, un uti- 
litaire de maintenance. Le pro- 
gramme et ses données tiennent 
dans 1 6 K de mémoire vive. 

Le programme s'explique lui- 
même. Une seule remarque : dans 
l'option 1) (entrée de résultats), 
l'entrée d'un nombre négatif pour 
l'un ou l'autre des scores (re (mettra 
le match correspondant « à jouer ». 
Cela permet la récupération des er- 
reurs. Les noms des équipes et les 
scores doivent être séparés par une 
virgule ou par un retour chariot. 

L'extension la plus immédiate est 
de rajouter au nom des fichiers l'an- 
née à laquelle ils s'appliquent. On 
peut ainsi constituer une véritable 
anthologie du championnat. Mais 
cela impose de lire le nom des 
équipes dans un fichier disque, 
puisqu'elles changent toutes les 
saisons. On peut voir plus loin en 
établissant des statistiques, ce qui 
mène à l'étude des gains, fonction 
des équipes et des conditions de 
jeu. 

Enfin, l'ultime extension du pro- 
gramme consiste à lui faire établir 
des prévisions sur les résultats. On 
connaissait déjà les prévisions des 
résultats -de tiercé par ordinateur, 
alors pourquoi pas le football... 

Jean-Denis Muys 



-étude- 



comment faire 

pour empiler 
des cubes 

un problème résolu pas à pas 



Il n'est pas possible de représenter tous les jeux par un pro- 
gramme d'ordinateur. Il est cependant amusant d'essayer 
en se promenant dans les rayons des grands magasins d'i- 
maginer des algorithmes solutions des jeux exposés. Voici 
un programme qui résout un problème de cubes à empiler. 
Hélas, ce n'est qu'un algorithme et non un modèle du che- 
min suivi par un enfant qui joue. 



Voici un jeu d'enfant ou presque. 
Il s'agit d'empiler quatre cubes; 
chaque cube possède six faces — 
en êtes-vous bien sûr ? — colorées ; 
1e jeu consiste à empiler les cubes 
de telle façon que si l'on considère 
tes quatre façades verticales for- 
mées par l'empilement (et non les 
faces au-dessus et en dessous), sur 
chaque façade, n'apparaîtront que 
des couleurs différentes (figure J). 

Bien sûr, si les quatre cubes sont 
entièrement rouges, il n'y aura 
aucune façon d'empiler les cubes 
qui réponde au problème, et inver- 
sement si les 24 faces des quatre 
cubes sont de 24 couleurs diffé- 
rentes, alors n'importe quel empile- 
ment sera une solution du pro- 
blème. D'autre part, une même cou- 
leur peut apparaître plusieurs fois 
dans l'empilement, à condition, évi- 
demment, que ce soit sur des fa- 
çades différentes. Généralement, 
les couleurs des cubes que l'on 
trouve dans le commerce sont dis- 
posées de telle façon qu'une seule 
configuration est une solution (tout 
au moins à une rotation ou une sy- 
métrie près). D'où, recherches lon- 
gues, très longues... 




Les deux façades visibles 
l'empilement présentent 
quatre couleurs différentes. 



Ce problème n'en est un que pour 
les adultes, les enfants le considè- 
rent plus facilement comme un jeu. 
On a remarqué, en effet, que les en- 
fants trouvent généralement la so- 
lution plus rapidement que les 
adultes, en quelques minutes 
contre plusieurs heures. 

Avant de faire l'analyse et le pro- 
gramme présentés ici, j'ai désespé- 
rément essayé — sans méthode — 
de jouer aux cubes. Heureusement, 
mon ordinateur individuel est venu 
à mon secours. 

La résolution d'un tel problème 
est très typique d'une certaine 
forme de programmation : l'explo- 
ration d'arborescences. Il se rap- 
proche en cela de beaucoup d'au- 
tres jeux : te solitaire, le problème 
du placement sans prises récipro- 
ques de n dames sur un échiquier de 
côté n, le problème du voyageur de 
commerce: passer par «x» villes 
une seule fois en faisant le moins 
de kilomètres possible. 

Contrairement aux échecs, il of- 
fre l'avantage de présenter une ar- 
borescence suffisamment réduite 
pour pouvoir être parcourue dans 
des temps humainement conceva- 2 
blés. En effet, examinons comment % 
nous pouvons empiler des cubes. 5 
Un cube possède six faces ; lorsqu'il ^ 
est posé sur une face donnée, on J 
peut par quarts de tour successifs g 
lui donner quatre positions diffé- S 
rentes par rapport à un observateur | 
fixe ou par rapport à un autre cube, | 
et donc pour chacune des six faces * 
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Les faces du dessus et du dessous sont 
déterminées par la donnée 
des quatre autres faces. 

sur lesquelles on peut poser le cube, 
il y a quatre possibilités de place- 
ment. Il existe donc 24 façons diffé- 
rentes de poser un cube sur un 
autre. Toutefois, pour ce qui est du 
premier cube, celui qui est posé sur 
le sol, nous ne considérons que 6 
positions différentes : les quarts de 
tours qu'on pourrait faire faire à ce 
cube (et donc aux trois autres cubes 
empilés sur celui-ci) n'amèneront 
pas de solution nouvelle. 

Pour chacune des 6 positions 
possibles du premier cube, il y a 24 
façons d'empiler le deuxième cube, 
et pour chacune de ces 6 x 24 fa- 
çons d'empiler deux cubes, il y a 24 
façons d'empiler le troisième cube. 
De même pour le quatrième cube, 
ce qui amène à ; 

6 x 24 x 24 x 24 

= 82944 façons 
d'empilerquatre cubes. Ce n'est pas 
rien I 

Il est donc à peu près certain 
qu'un enfant ne procède pas algo- 
rithmiquement pour trouver la solu- 
tion de ce jeu. (Si quelqu'un a des 
idées à ce sujet, qu'il nous les com- 
munique I) 

Quant à nous — et avec un petit 
ordinateur — , voyons comment ex- 
plorer ce monde cubique et en ex- 
traire la ou les solutions. 

Appelions i-èmement correct un 
empilage de «i » cubes résolvant le 
problème. Par exemple un empilage 
de deux cubes tel qu'aucune façade 
verticale ne comporte de répétition 
de couleur sera dit « deuxièmement- 
correct », et la solution est un empi- 
lage quatrièmement-correct. 
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Deux solutions identiques. 
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e représentant les 82944 façons d'empiler les cubes. 



Il est par ailleurs évident que la 
position d'un cube donné dans la 
pile n'a aucune importance. Si un 
empilage est quatrièmement-cor- 
rect, on peut, à condition de ne pas 
modifier leurs orientations récipro- 
ques, remplacer le cube le plus bas 
par le cube le plus haut, ou toute 
autre permutation du même type (fi- 
gure 2). C'est-à-dire que si 4-3-2-1 
est solution, 3-4-2-1 l'est aussi, de 
même 1-2-3-4, etc. 

L'idée de base est simple : empi- 
lons deux cubes de façon deuxième- 
ment-correcte (il peut y avoir plu- 
sieurs empilages deuxièmement- 
corrects) et essayons d'ajouter un 
troisième cube pour obtenir un em- 
pilage troisièmement-correct. Si 
nous y arrivons, essayons d'ajouter 
lç quatrième cube. Si aucune posi- 
tion du troisième cube ne répond à 
notre attente, il nous faut changer 
la position du deuxième cube et 
prendre un autre des empilages 
deuxièmement-corrects pour es- 
sayer à nouveau d'ajouter le troi- 
sième cube. 

On peut représenter toutes les fa- 
çons d'empiler quatre cubes par un 
arbre de positions. Rechercher 



toutes les solutions consistera alors 
à parcourir successivement toutes 
les branches de cet arbre (sauf en 
cas de rencontre d'une position 
ièmement incorrecte). 

Soit Pij la j-ème position possible 
du cube «i ». Dans notre problème, 
1 ^ j < 24 et 1 s k 4. On a donc le 
schéma de la figure 3 qui repré- 
sente tous les empilages possibles 
de 4 cubes. Sur cette figure, nous 
avons représenté en trait gras l'em- 
pilage correspondant à la position 3 
du cube 1 , 2 du cube 2, 1 du cube 3, 
et 13 du cube 4. 

Les cubes 

dans 

la mémoire 



Comment représenter tous nos 

cubes dans un ordinateur? Appe- 
lons CI, C2, C3, C4 nos quatre 
cubes. 

1, Numérotons les faces des cubes, 
et à chaque face associons une cou- 
leur. On aura donc pour le cube Ci 
une table T$(i) à 6 éléments conte- 



Exemple d'exécution 
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nant les couleurs des faces ffi- 

gure4). 

Dans le programme, nous regrou- 
peronsen fait les4tablesT$(i)dans 
un seul tableau T$(i, j) avec i com- 
pris entre 1 et 4, et j entre 1 et 6. 

2. Il faut maintenant représenter 
une position d'un cube. Commen- 
çons par faire une croix sur la face 
qui se trouve le plus proche de nous, 
et un rond sur celle du dessus (seul 
moyen de nous y retrouver). 
Le cube sera alors représenté 
comme sur la figure 5. 

Remarques : 

• Un quart de tour, c'est une per- 
mutation circulaire sur les contenus 
des quatre premières cases ; par 
exemple, 1234 donne, de quart de 
tour en quart de tour, 2341 , 341 2 et 
4123. 

• Un retournement sens dessus- 
dessous, c'est une inversion des 
contenus des cases 5 et 6 (et, par 
conséquent, 2 et 4). Ainsi, 1 23456 
devient 143265. 

Nous pouvons donc construire 
une table appelée PO dans laquelle 
seront représentées les 24 posi- 
tions possibles d'un cube numéro- 
tées de 1 à 24. Comme nous ne 
nous préoccupons pas des faces 
dessus-dessous, ne les représen- 
tons pas dans cette table. 



Nous allons nous servir de PO 
pour représenter les positions de 
tous les cubes : la position d'un cube 
Ci à un instant donné est la valeur 
contenue dans la variable P(i). Cette 
valeur est un indice compris entre 1 
et 24 de la table PO. 



Figure 5 
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Par exemple, supposons le cube 1 
dans la position numéro 4. Nous 
voulons connaître la couleur de la 
face opposée à l'observateur, sa- 
chant que les couleurs ont été attri- 
buées dans TS{1) comme dans la fi- 
gureA. Allons à la ligne 4 de PO. 
Nous avons décidé plus haut que la 
face opposée à l'observateur serait 
dans la troisième case. Nous voyons 
donc que ce sera la face 6 du cube 1. 
Consultons TS(1), cette face est B 
(comme blanche). 
Comment essayer toutes les posi- 
tions possibles pour un cube « i » : on 
commence avec P(i) = 1 et on es- 
saye cette position. Chaque fois 
qu'on veut une nouvelle position, on 
fait P(i) = P(i) + 1 (ou bien P(i) = P(i) 
+ 4 pour le cube 1 ) et si on arrive à 
P(i) = 24, c'est que l'on a essaye 
toutes les positions. 

Dire que deux cubes Ci et Cj dans 
des positions P(i) et P(j) sont deuxiè- 
mement-corrects, c'est dire que 
pou r k va lant 1 , 2, 3 et 4 : 
T$(i. (PO [P(i>, k])) = 

T$(j, (PO [P(j), k])) 
d'où une procédure de vérification 
de «correction-deuxième» (empi- 



La numérotation des cases, une fois le cube repéré 

, par la croix et le rond /ci-dessus! et le repérage 

en mémoire de la position (ci-dessous). 



numéro deotseK H 
r\utv\éro deËwe ► -1 



2 3 4 5 6 



adroite 



fi£&& l'ofasen/afëur 



t 



L_^ dessous 

►ciessos 
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L'Ordinateur Individuel 
grammes n° 54 bis déc.1983 



43 



Liste du programme 



t'è,t 



























































































































B5 . Ifj 9 
































































































3^ ^sH^ssils as 






































N 






u« ^.gj.g.^;gggg r=° 


ï 


s s s s 


£ g 




1 


| 




iS liiiiiiii g l 


1 


Bi.-ev.Si B 


£g g 1 S 2 


Y 


s 


1 




:. ... .;-;■.. . . 


! 1 


SlSISiî 


ap ï g » ; 




\ 


« 




111111 


1 h 


%l^Z^5: 


i|| j* | 5 j | 


% J 


| 


1 


"à 


asssllllllll^lll 


?P. 


583I Sï5 


S sr ' ?1 " 1 '" J '; M - " , " vï " "'" a "'" ,0 iD ' r " a 


































































S 


: 




*~ s 


! ï : 


-ïsSiSïï 


S 




























B.B™ BSB? 




































*M 




allillllllSIllill 




lâSimsilâisSâSSSSS 




ss 




S2§§§ï§S5§!Ssâs35SS3SSS§SSSSëI 


SS33Sïï55SS££ïïÏÏ£££££S 



veRiFÇa,Cj) 



oesuT 



OK*-H 






Té(é,(Po(P(L),kW=ré(j r Po(P(j),k») 



Non 



OK«^0 



FIN 



RAPPEL: 
: symbole 



+ M 



n\ .se programme 



for *.= Lton stepnv 



*WS«««»^*W ' 



La procédure VERIF. 



lage deuxièmement-correct). L'or- 
ganigramme de cette procédure 
VERIF est donné en figure 6. 

Un appel de VERIF appliqué aux 
cubes Ci et Cj donne la valeur 1 àOK 
si Ci et Cj sont deuxièmement-cor- 
rects, et la valeur sinon. 

L'organigramme du programme 
est représenté par les figures 7, 8, 9 



et 10. La logique d'ensemble est la 
suivante ; réussir à empiler quatre 
cubes de façon quatrièmement-cor- 
recte, c'est poser le premier cube 
C1 et pour cette position, essayer 
toutes les positions troisièmement- 
correctes des cubes C2, C3, C4. De 
même empiler les trois cubes C2, 
C3, C4, c'est empiler C2 sur C1 de 
façon deuxièmement-correcte et, 
pour cette position, essayer toutes 



On voit ainsi qu'on ne perd pas de 
temps a empiler les cubes C3 et C4 
si les cubes C2 et C1 ne forment pas 
un empilage deuxièmement-cor- 
recte. 

Le BASIC n'accepte pas la syn- 
taxe suivante : 

FOR P(l)= 1 TO J 

il a donc fallu utiliser quatre varia- 
bles intermédiaires, Q1, Q2, Q3 et 
04. 

Le sous-programme VERIF a pour 
argument deux numéros de cubes 
qui sont transmis avant chaque ap- 
pel par l'intermédiaire des variables 
let J. 

Ne vous impatientez, pas. Les 
temps d'exécution sont importants. 
Le plus court (18 secondes) est pour 
la configuration du type : 
Cube 1 : R, R, R, R, R, R 
Cube 2: R, R, R, R, R, R 
Cube 3: R, R, R, R, R, R 
Cube 4: R, R, R, R, R, R 
où tous les cubes sont de la même 
couleur, ce qui ne donne bien sûr 
aucune solution. 

On arrive souvent à des temps de 
l'ordre de 8 minutes avec des confi- 
gurations du genre : 
Cube 1 : R, J, V, B, R, R 
Cube 2: B, R, J, V, R, R 
Cube 3: V, B, R, J, R, R 
Cube 4: J, V, B, R, R, R 
qui procure 17 solutions. 

H est possible de «bricoler» le 
programme. En effet, bien que cela 
rende le programme moins facile à 
lire et plus long à écrire, on peut in- 
troduire la procédure VERIF dans le 
corps même du programme. Cela 
évite d'avoir à exécuter les instruc- 
tions du type P(i) = Ql des lignes 
1020, 2020, 3020 et supprime la 
transmission d'arguments des 
lignes 1 030, 2030, etc. Nous 
sommes arrivés à diviser les temps 
d'exécution par deux. Faites 
mieux ! ! ! La suite du jeu est bien 
sûr de trouver une configuration qui 
ne fournirait qu'une seule solution. 
C'est un programme assez simple 
mais qui tournera très, très, très 
longtemps 

On pourrait également chercher 
avec combien de couleurs utilisées, 
au minimum et au maximum, et sui- 
vant quelles dispositions on obtient 
une seule solution. Les jeux étantce 
qu'ils sont, nous vous laissons 
«jouer aux cubes ». 



Jean-François Poitevin 
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-sinueux- 



parcourez 
les méandres d'Isola 

avant de défier vos enfants! 



Que tous ceux qui en ont assez d'être battus 
par leur programme d'Othello, se réjouissent, ils 
vont pouvoir désormais être battus par leur pro- 
gramme d'Isola. Qu'est-ce que Isola? Isola est 
un jeu de réflexion qui se joue sur un échiquier 8 
X 8 (à l'origine 6X8) avec 1 pion pour chacun 
des 2 joueurs. Le but du jeu est de bloquer le pion 
ennemi ; pour ce faire vous déplacez à chaque 
tour votre pion (comme un roi aux échecs) sur 
une case vide et vous détruisez une case de l'é- 
chiquier de votre choix. Si votre adversaire par- 
vient à détruire toutes les cases qui vous entou- 
rent, vous ne pouvez plus vous déplacer donc 
vous avez perdu. 



Le programme utilise la techni- 


case ayant reçu la meilleure note. 


que de la <■ plongée » pour détermi- 


La structure du programme est la 


ner la case où il doit se rendre et la 


suivante ; 


case qu il va détruire sous vos pas. 






Lignes 1 040-1 06Ô 


Il compte pour chacune des 8 di- 


Initialisation du tableau T terrain 


rections toutes les cases qu il peut 


de jeu. 


atteindre en 2 coups, ce qui nous 


1 case vide. 


donne une triple boucle. Vous pou- 


2 " pion de I adversaire. 


vez d ailleurs supprimer ou modifier 


3 pion de la machine. 


les lignes 2160, 2170, 2190 ainsi 


5 case détruite 


que 3070, 3080, 3100 pour n'avoir 


9 bord du jeu. 


qu une double boucle au cas où 




votre BASIC ne serait pas très per- 


Lignes 1070-1110 


formant. 


Initialisation du tableau D direc- 


Le programme joue ensuite la 


tions de déplacement 



Initialisation des tableaux PI et 
P2, pondérations. 

Lignes 1120-1170 

Initialisation aléatoire des posi- 
tions des 2 joueurs. 

Lignes 2040-2090 

Recherche de la position des 
2 joueurs. 

Lignes 21 20-2230 

Recherche de la case à jouer tri- 
ple boucle. A l'intérieur de chaque 
boucle on supprime les branches 
qui font marche arrière ou qui tom- 
bent sur une case détruite ; au 1 '-' 
niveau ces directions sont notées 
- - 1 dans le tableau de cumul P2 car 
ce sont des cases interdites. 

Lignes 2260-2310 

On recherche le poste de P2 
contenant la valeur la plus élevée, 
sa position dans la table nous donne w 
la direction à jouer. ? 

Lignes 2340-2500 ° 

Si ladirectionà jouer estégaleàO g 
(aie aie aïe), on prend une direction | 
au hasard et on essaye de la jouer. S 
Si les 8 directions sont essayées S 
sans succès, on annonce la fin de la È 
partie. | 
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Exempte simple d'exécution 

Voulez-vous jouer en premier ? OUI 
1 9 ^ 1 ç fi 7 ft 

e i ii iiiniiiiiiiii ii i ii i iimi) e 

iHt m\ 

28* 44*2 

3». ! 8*3 

48* 844 

Sttt 485 

6 84 2 . . tttS 

7» «7 

8*8 mi 

9l lll lll H li miHII I HH I I I I» 9 
12 3 4 5 6 7 8 

Parmi les 8 coups jouables, lequel 
jouez-vous ? 
Ligne puis colonne 4,3 
Quelle case détruisez-vous ? 6,5 
i 2 o j r e i a 

e n iiHiiiiiiiiiiiiii m mni i e 

18* Htl 

2*8 «2 

ÎW. . .8*. . . .8*3 

48*. .1 8*4 

58* 2 . .44*5 

6*8. . . .8*. . *t*6 
1» 8*7 

88* »! 

9 1 111 11 11111 11111 111111111 11 1 11 9 

12 3 4 5 6 7 8 

Parmi les 7 coups jouables, lequel 
jouez-vous ? 
Ligne puis colonne 4,4 
Quelle case détruisez-vous ? 5,5 
! 9 ^ 4 Ç fi 7 fl 

8 ll ll ll l ll lll l l lll ll lll lll l lll l e 

18* *8i 

28» 8*2 

i«. . m . . . «3 

4*8. . . i . . 2 .8*4 
& ni ■ ■ IIJIII . . Ht 
6 8* . . . . 8* . . . 8* 6 
ItH ***? 

8 8* 48 8 

9 l lllllllllllllllllllllllllllll 9 

12 3 4 5 6 7 8 

Parmi les 5 coups jouables, lequel 

jouez-vous ? 

Ligne puis colonne 3,5 

Quelle case détruisez-vous ? 5,7 

Cf\ L'Ordinateur Individuel 
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I Q A C ft 7 Ô 

8 l llllllllllllllllllllllllllll l 8 

i*« 8*i 

i*. . m. . . .8*2 
3 m . . . m i 2 . . «» 3 

48* 8*4 

5 48 . . . 4848 . 84 . 48 5 

6 48 . . . .84. . .486 

781: 847 

88» 848 

8 ll l l l lll l llll l ll l l llll lll llll l 9 

12 3 4 5(78 

Parmi les 5 coups jouables, lequel 
jouez-vous ? 
Ligne puis colonne 4,5 
Quelle case détruisez-vous ? 2,5 
Quelques coups plus tard... 
Je sens votre fin proche H! 
1 ? ^ 4 Ç fi 7 ft 

e ii iitii ii iiti i i i i i i ii ii i iiii i i e 
i«#. . . .m.m.m\ 
im. . mmim.mz 

11*4 W HIHHH W i 

» **T • . TTT . TTlIIFlIfrff J 

4 4M m Himimn i 

1 HT . . . TTT ■ TTTTTTfTTTTT 1 
v ITT . . TffTTTTTT . TTT . TTT 

6444. . . .44418. .4446 
748 4442 .444 7 

9 ll l l ll l l l llll l l l l l lll l l l lll l ll 9 

12 3 4 5 6 7 8 

Parmi les 2 coups jouables, lequel 
jouez-vous ? 
Ligne puis colonne 1,6 
Quelle case détruisez-vous ? 8,6 
Je sens votre fin proche !!! 
I ") \ i Ç fi 7 8 

8 4444444444444444444484444484 8 

I48. . . .481.48.481 

2 iii iiiiiiiiiiii m 4 

TTT . . ITffTfTTTfTT . TTT C 

3 m m iiiiiiiiiih 4 

TTT . . TTT . IflMIITtttt 3 

4 m m iimiiiuii i 

TTT . . TfT . tllllllVIIII 1 

5 111 llUlllil ||i iji r 

TTT . . Illflllrf . Ht . TTT 5 

68*. . . .ttftTT. 2H46 

im m. mi 

8 t# . r# ttt8 

9 l inH ll il l ))UHI Ht#m#*4 9 

12 3 4 5 6 7 8 

J'AI GAGNE EN 11 COUPS! 



Lignes 3020-3320 

On refait les mêmes calculs afin 
de déterminer la case à supprimer 
autour de l'ennemi — voir les lignes 
21 20 à 2500. On utilise X2 et P1 au 
lieu de X3 et P2. 

Lignes 3500 à 3740 

Impression du tableau de jeu. (Il 
reste quelque chose à faire quand K 
vaut ou 9 aux lignes 3590 et 
3720). 

Lignes 4000 à 4080 

Recherche du nombre de cases 
jouables par l'adversaire. Si ce 
nombre est égal à on annonce la 
victoire avec force controls G ; si le 
nombre est égal à 1 , on joue le coup 
à la place du joueur, sinon on lui de- 
mande la case où veut jouer. 

Lignes 5110-5580 

Entrée et contrôle du coup du 
joueur, d'abord la case où il se rend 
(voisine de la case de départ et li- 
bre), puis la case qu'il détruit (cette 
case ne doit pas déjà avoir été dé- 
truite). 

On recommence alors au début 
jusqu'à ce que mort s'ensuive (sic !). 

Les lignes 3000 à 3320 peuvent 
être transformées en sous-pro- 
gramme (appelé 2 fois par coup de 
la machine) en vue de supprimer les 
lignes 2120 à 2500, mais il sera 
alors plus difficile de faire évoluer la 
technique de jeu du programme. 

La partie peut durer 32 coups au 
maximum à raison de 2 cases dé- 
truites par coup, mais générale- 
ment la partie se termine au bout de 
13 à 18 coups. Si elle se termine 
avant cela veut dire que vous êtes 
soit très bon, soit très mauvais. 

Il ne vous reste plus maintenant 
qu'à essayer Isola et lorsque vous 
aurez acquis une dextérité telle que 
vous gagnez à tous les coups (n'est- 
ce pas?), pourquoi ne pas compli- 
quer un peu le jeu en définissant un 
damier de 15 cases sur 15, un dé- 
placement de 1 à 3 cases, la possi- 
bilité de détruire entre 1 et 5 cases à 
chaque tour de jeu ou toute autre 
convention. Ce jeu simple a priori 
pourra alors se révéler redoutable 
surtout si vous faites intervenir un 
soupçon de hasard pour corser le 
tout... 

Pierre Palacios 



Note: la mise au point de ce programme a été 
effectuée à l'A.R.T.A. au centre Georges 
Pompidou. Il a été réalisé à partir de l'idée 
présentée dans le Jeu Isola des Editions Ra- 
vensburger, jeu qui utilise un damier 6 X 8. 



-bâtiment- 



pensez-vous vraiment 
casser des briques ? 



Connaissez-vous le « casse-briques » ? Il s'agit 
d'un jeu, dit jeu vidéo, car il associe des dépla- 
cements sur l'écran et une action réflexe de 
votre part. Ce n'est pas un jeu très difficile 
mais vous verrez bien vite, hélas, que vos 
enfants s'y montrent rapidement plus habiles 
que vous. Pour en avoir la démonstration, il 
vous suffit d'entrer la liste du programme en 
BASIC sur votre PET ou votre CBM. 



Le « mur de briques » n'est pas 
un jeu de réflexion, mais un jeu de 
réflexe. Ne le dédaignez pas pour 
autant : il nécessite une bonne 
coordination entre acuité visuelle 
et, en l'occurrence, déplacement 
delà main. 

Le but du jeu est simple : en 
haut de l'écran est affiché un mur 
de briques, en bas une raquette, 
style raquette de tennis, stylisée 
bien sûr ! Entre les deux, une petite 
balle se déplace. Chaque fois 
qu'elle heurte une brique, la brique 
disparaît et vous marquez un 
point. Vers le bas, soit vous la 
touchez avec votre raquette et elle 
repart vers le haut, soit vous la 
manquez et vous avez perdu. 

Vous avez perdu pour cette 
balle tout au plus car une nouvelle 
apparaît mais vous avez tout de 
même perdu du temps et c'est 
contre le temps que vous jouez : il 
vous faut détruire toutes les bri- 
ques en un minimum de temps. 

Le déplacement de la raquette 
s'effectue à l'aide des touches 4 
- pour aller à gauche - et 6 pour 
aller à droite. 

Comme le jeu ne se veut pas 
trop difficile, vous ne sortirez par le 
bas de l'écran qu'une fois sur 
deux. 

Il vous sera possible d'utiliser ou 
de supprimer le son (les listes du 



programme et des variables vous 
indiquent les lignes et variables 
affectées). 

L'adaptation à un PET ou à un 
CBM consiste simplement à modi- 
fier la variable KB (voir les lignes 
1300 et 1310) KB = 515 corres- 
pond à un PET et KB = 151 à un 
CBM. 

Ce programme utilise bien sûr 
divers POKEs et il est propre aux 
appareils PET/CBM. 

Il ne vous reste plus qu'à vous 
entraîner et a essayer de défier 




ensuite vos enfants. Peut-être 
n'est-ce pas perdu d'avance ? 



Jean-Pierre Jaborska 
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Liste du programme 



READY. 
10 REM * MUR &E BRIQUES * 

20 REM * MIS AU POINT SUR CBH (3,S 

30 REM AUTEUR : JEAN PIERRE JABORSKA 

10 REM COPYRIGHT L'ORDINATEUR INDIVIDU 



. ET L'AUTEUR 



REM MODE D'EMPLOI 
E* INITIALISATION 
EM DESSIN DU TERRAIN 
EM BALLE 



: REM DEBUT D 



EU 



BALLE EN MOINS 



100 GOSUB 1000 

110 GOSUB 1200 

120 GOSUB 1400 

130 GOSUB 1800 

HO GOSJB 19Q0 

150 IF FP=1 TMEN 210 

F TT=1 THEN GOSUS 2300: REM 
F NB<20 AND PICIOO THEN 130 
OSUB 2500 : REM FIN DE PARTIE 

190 GOSUB 9000 : REK TEST SUR LA REPONSE 

200 IF AJ="0" THEN RUN 110 

210 POKE SN,0 

220 POKE SN+2,0 

230 POKE SN+3,0 

240 PRINT"" 

250 CLR 

260 END 

1 000 REM**«***««*******«**..*.«....***...«.* 

1010 REM PRESENTATION DU JEU 

1020 PRINT"" 

1030 PRINT:PRINT 

1040 PRINT"MUR DE BRIQUES" 
: PRINT 

1060 PRINT'BUT DU JEU : DETRUIRE TOUTES LES" 

1070 PRINT" BRIQUES, A L'AIDE D'UNE BALLE," 

1080 PRINT" EN UN MINIMUM DE TEMPS." 

] PRINT: PRINT 

1100 PRINT"POUR CELA ON DEPLACE UNE RAQUETTE" 
"D PRINT"EN APPUYANT SUR LES TOUCHES:" 

1120 PRINT" 4 POUR ALLER A GAUCHE" 

t130 PRINT" 6 POUR ALLER A DROITE" 

1140 PRINT: PRINT"POUR ARRETER LE JEU EN COURS" 

'" J PRINT"DE PARTIE APPUYER SUR F" 

D PRINT: PRINT" ETES-VOUS PRET"; 

1170 GOSUB 9000 

~J IF A$>"N" THEN 1020 
J RETURN 

1200 REM 



1210 
1220 P 



INITIALISATION 



1230 POKE 59468,12 

1240 SN=59464: POKE SN+3,16: REM REGISTRE S 

1250 POKE SN+2,31: POKE SN,0 



=192: 



: C 1=1 60 



1290 S0=1 

J SC32768: KB=515 
) IF PEËK(SOOOO) 1 
J RETURN 

1400 REM 



4 KB-T51: REM TYPE DE PET 



PREPARE L'ECRAN 



1430 FOR A=0 TO 79 
1440 POKE Sf>A,BO 
1450 NEXT A 

1460 REM 

1470 REM— 



1480 FOR A=2 T 
1490 P 



23 



;+(A*40)+39,A0 



3 REM 

3 REM 

1590 FOR A=3 TO 36 STEP 2 
1600 POKE SC+ (24*40) +A,SO 

J NEXT A 

] REM 

) PRINT""TA8C5)"P0INTS"T 



D PA=33627: REM DEPART RA3UETTE 

POKE PA+1,CI 

POKE PA,CI: POKE PA*1,CI 



) REM DEPART D 

) P0=33268 

) SI=1: POKE PO,BA 

D RETURN 



REM LE JEU COMMENCE ICI 

4=PEEK(KB) 

[F A>42 OR A<41 THEN 2010 



:a=42)*2-1 



=41)*2 



) IF PA<33610 THEN PA=33610: PV=PA+2 

3 IF PA>33643 THEN PA=33643: PV=PA-2 

) POKE PV+2,SP: POKE PV+1,SP 

3 POKE PV,SP: POKE PA,CI 

) POKE PA+1,CI: POKE PA+2,CI 



2200 

2210 
2220 
2300 
2310 
2320 
2330 
2340 



IF A$="F" THEN FF=1: 

A=PEEK(PO+DI) 

IF A=BO OR A=C1 OR A 

IF A=AO THEN POKE SN 

IF AOW THEN 2100 

SI—SI: POKE (PO'DI) 

DI=ABS(DI): POKE SN, 



3 2220 



SI=-SI: GOTO 216C 



PI=F 



((RNBC1 



";PI 



i 1920 



•21+1 



DI=t3B*RA)«SI 

IF A=FO THEN POKE SN,65 

IF A=BO THEN POKE SN,140 

IF A=CI THEN POKE SN,220 

GOTO 1920 

RETURN 

REM 

REM SORTIE BALLE 

POKE PO,SP: POKE PO+DI,BA 
POKE SN+2,51 

REM 

FOR T=1 TO 3 
REM 



2360 R 

2370 F 

2380 POKE SN,JK 

2390 NEXT JK 

2400 REM 

2410 NEXT T 

2420 REM 

2430 POKE SN+2,81:P0KE J 

2440 N" — 

2450 P 

2460 P 

2470 R 

2500 R 



) REM— 



2520 
2530 
2540 
2550 
2560 
2570 



IN DE PARTIE 
PRINT"PARTIE TERMINEE APRES" 
PRINT""MIM(TIt,3,2>; 

PRINT" MINUTES";RIGHTÏ(TII,2);" SECONDES" 
PRINT"VOULEZ VOUS JOUER UNE" 
PRINT'AUTRE PARTIE "; 



3 REM— 



1 LA REPONSE 



9030 A 
9040 I 
9050 R 



-rôle- 






partez à l'aventure 

dans le pays fantastique 

des Donjons et des Dragons 



Connaissez-vous les jeux de rôles? Non. Alors 
suivez-nous à travers la lande aride vers le château 
du Dragon. Attention, le voyage sera périlleux, 
semé d'embûches et surtout peuplé de divers 
monstres qui assurément ne vous veulent pas du 
bien. Avancez lentement, j'entends déjà les pre- 
miers hurlements qui montent de la nuit... 



Depuis des siècles, le chàieau 
était proche du village Depuis des 
siècles, le trésor était dans le châ- 
teau. Et depuis des siècles, des 
hommes inconscients tentaient de 
ravir le trésor. 

Il y avait eu Hérold, héritier d'un 
roi Elfe, armé de son arc flam- 
boyant. Il avait péri de la main d'un 
Troll II y avait eu Lovin, vaillant 
combattant des guerres elfiques. Sa 
hache n'avait pu venir à bout d'un 
Balrog. 

Des hommes, des nains, deshob- 
bits avaient tenté d'affronter le châ- 
teau. Les rares qui revinrent avaient 
laissé leur esprit dans la lande hos- 
tile. Les pièges du château du Dra- 
gon sont de ceux auxquels nul ne ré- 
siste. 

Certains, parmi les plus vieux, af- 
firment que les restes des précé- 
dents explorateurs défendent eux- 
mêmes le trésor dont ils n'ont pu 
s'emparer. La nuit, des cris aux into- 
nations rien moins qu'humaines, 
parviennent jusqu'aux maisons du 
village. Nul ne pourrait dire avec 
exactitude ce qui se passe là-bas, 
mais l'imagination supplante la 
connaissance, et les villageois dé- 
crivent à ceux qui veulent écouter, 
les monstres hantant le cnàteau. 

Il y a le Troll, énorme, dont le 
corps semble fait de pierres; l'or- 
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que bardé de fer, et dont les crocs 
scintillent sous la lune; le centaure 
rapide et puissant ; le Balrog, mas- 
sif et ailé ; la goule et le vampire, as- 
soiffés de sang ; le gobelin dont la 
cruauté n'a d'égal que la bêtise ; et 
bien d'autres... 

Et puis, il y a celui dont le nom fait 
s'enfuir les plus courageux, le maî- 
tre des lieux, le Dragon. Aux aguets 
dans sa tanière, iî attend l'impru- 
dent qui osera le défier. 

Jadis (c'était avant les guerres el- 
fiques), Saroumane le Magnifique 
demanda l'hospitalité aux habitants 
du château. Ceux-ci, farouches par- 
tisans des Elfes, la lui refusèrent. Et 
l'on dit que Saroumane, furieux de 
ce refus, transforma le châtelain en £. 
dragon, et les autres habitants en ° c 
divers types de monstres. Puis, il 5 
amena le trésor qu'il tenait de ses ?! 
divers pillages, dans le château, et | 
condamna le dragon à le protéger | 
pour l'éternité. ■-■ 

Telle est la légende que racontent J 
les Elfes, le soir, auprès du feu, mais | 
les hobbits ont une autre version de S 
{suite du texte p. 55) 

L'Ordinateur Individuel CQ 
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rhistoire. Pour eux, le dragon est 
originaire des lointaines mon- 
tagnes des Ténèbres Chassé par 
Sauron, et trouvant la lugubre 
beauté du château à son goût, il y 
élut domicile 

Une autre légende traite d'un roi 
elfe qui s'émut du sort des malheu- 
reux assai liants du château. Il réunit 
donc un conseil formé de nains, de 
hobbits et d'elfes, et proposa d'ai- 
der les courageux explorateurs. 
Après moult discussions, ils déci- 
dèrent de disséminer autour et dans 
le château, des objets bénéfiques. 
Les Elfes apportèrent des armes 
magiques, les nainsdes armures, et 
les hobbits un élixir de vie qu'ils te- 
naient de Gandalf le magicien. 

On dit aussi que la force et la va i 
lance ne suffisent pas à celui qui dé- 
sire s'emparer du Trésor. Il doi 
aussi faire travailler son esprit. . 

Et maintenant, c'est à toi, ô lec- 
teur ! d'affronter le château du Dra 
gon. En auras-tu le courage ? 

Donjons et Dragons nous vier 
des Etats-Unis. Il est le plus célèbre 



représentant d'une nouvelle caté- 
gorie de jeux : les jeux de rôles. Ce 
sont des jeux de simulation qui ten- 
tent de s'approcher le plus possible 
de la réalité en faisant subir aux 
personnages ce qui pourrait advenir 
à un homme placé dans les mêmes 
conditions. C'est ainsi qu'ils font in- 
tervenir des facteurs comme l'intel- 
ligence, la force, le courage, l'as- 
tuce, la fatigue, la faim, la volonté, 
l'expérience, etc.. Dans un jeu de 
rôle, les personnages ne sont pas fi- 
gés, ils évoluent en cours de partie. 

Ce souci de la vraisemblance peut 
quelquefois obliger la partie à se 
prolonger. C'est ainsi qu'une partie 
de Donjons et Dragons peut durer 
des jours, des semaines, voire des 
mois fen ne jouant pas tous les 
jours, bien sûr I). On conçoit facile- 
ment la déception d'un joueur dont 
le personnage tombe à la première 
escarmouche ! 

Donjons et Dragons trouve son 
origine dans l'œuvre de Tolkien 
dont (a renommée est immense 
dans les pays anglo-saxons (cin 
quante millions de lecteurs). Lesro 
mans de Tolkien nous entraînen 
dans un monde féerique et fasci 
nant, en particulier « Bilbo le hob 
bit» et «Le seigneur des anneaux^ 
qui nous content la saga de l'an 
neau de puissance. Bilbo est ur 
jeune hobbit (petit peuple sympathi 
que et casanier) qui est entraîné 
bien malgré lui dans la quête d'un 
trésor protégé par un dragon (tiens, 
tiens !...). Au cours de l'expédition, 
Bilbo réussit à dérober à une créa 
ture cruelle et sans scrupules, Gol- 
lum, un anneau qui rend invisible. 
Mais cet anneau est aussi l'anneau 
de puissance, égaré par Sauron, le 
Maître des Ténèbres. Si l'anneau 
retombe entre ses mains, le monde 
est perdu. Il faut donc détruire l'an- 
neau, mais, par malheur, la seule 
force capable de cet exploit, est la 
forge qui l'a fondu. Et cette forge se 
trouve naturellement à Mordor, le 
royaume des Ténèbres. 

«Le seigneur des anneaux « ra- 
conte les aventures du petit groupe, 
mené par Gandalf lemagicien.dont 
la difficile et délicate mission est de 
détruire l'anneau 

L'œuvre de Tolkien est un catalo- 
gue inépuisable de monstres et de 
situations dont se sont beaucoup 
inspirés les créateurs de Donjons et 
Dragons. 

Comment se déroule une partie 
de D et D ? La préparation com- 
mence longtemps avant la partie 
elle-même 

Le Maître du Donjon, qui est le 
meneur de jeu, trace un plan très 
précis du terrain sur lequel évolue- 
ront les joueurs villages, falaises, 
sentiers, passages secrets, et, bien 
sûr, le château et sa salle du trésor 



Il est recommandé d'installer quel- 
ques oubliettes, divers pièges plus 
ou moins meurtriers, mais aussi des 
rivières et d'autres aménagements 
susceptibles d'aider l'expédition, 
car le rôle du Maître du Donjon n'est 
pas de tuer à tout prix les person- 
nages, pas plus que de les laisser 
progresser tranquillement. Il doit 
savoir doser ses effets. Son rôle est 
loin d'être simple. Et puis, le grand 
jour arrive, chaque joueur choisit 
son personnage (guerrier, elfe, ma- 
gicien, etc.. ) et détermine grâce à 
des dés les caractéristiques de ce- 
lui-ci : courage, force, sagesse, vita- 
lité, etc. . Et l'expédition démarre 
Le Maître du Donjon demande la di- 
rection vers laquelle veulent se ren- 
dre les membres de l'expédition, 
ceux-ci se concertent et décident. 
Le Maître du Donjon décrit alors les 
alentours, grâce à sa carte, et fait 
éventuellement intervenir un ou 
des monstres Et la partie continue 
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jusqu'au retour de l'expédition, ou 
a la mort de tous ses membres, 
pour aider le Maître du Donion, il 
existe des recueils qui donnent des 
idées de scénarios, qui décrivent 
des monstres, avec leurs caracté- 
ristiques, qui répondent aux di- 
verses situations dans lesquelles 
□eut se trouver le Maître du Donjon 
M existe enfin des figurines repré- 
sentant les personnages et les 
monstres, ainsi que les trésors, les 
armures, etc.. 

Dans «le château du Dragon », 
c'est l'ordinateur qui joue le rôle du 
Maître du Donjon. Vous constituez 
l'expédition. 

Il s'agit, partant du village, d'at- 
teindre la salle du trésor, d'ouvrir le 
coffre, et de rentrer au village 
vivant, si possible. 

Vous sélectionnez trois fois de 
suite la direction vers laquelle vous 
désirez aller (le terrain représente 
un carré de 50 x 50), l'ordinateur 
vous indique où vous vous trouvez, 
et détermine éventuellement un 
événement. Cet événement peut 
être soit bénéfique (objets bénéfi- 
ques), soit maléfiques (rencontre 
avec un monstre) Arrivé dans la 
salle du trésor, il faut trouver la 
combinaison du coffre, selon le 
principe du tvlastermind. 

Voici les principales caractéristi- 
ques du jeu : 

. Les combats. Chacune des créa- 
tures du « château du Dragon » (per- 
sonnage ou monstre) est caractéri- 
sée par trois facteurs : le capital-vie, 
la résistance et la force. 
. Le capital-vie est la vitalité de la 
créature. Chaque blessure le dimi- 
nue, son annulation correspond à la 
mort. 

. La résistance est le seuil minimal 
de l'ardeur que doit déployer l'ad- 
versaire pour que son coup porte La 
résistance d'une momie est par 
exemple de 8. Au cours d'un com- 
bat, vous ne toucherez la momie que 
si l'ordinateur réalise (par un 
RND(IO)) un nombre supérieur ou 
égal à 8. 

. La force permet de déterminer la 
gravité de la blessure infligée après 
un coup réussi. La force est définie 
par deux variables : f etf . La gravité 
du coup est calculée par RND(f) - f ', 
et est retranchée au capital-vie de 
l'adversaire. 

Grâce à ces trois principes, un 
combat vraisemblable peut avoir 
lieu. Une créature faible mais chan- 
ceuse peut vaincre une créature 
plus forte. 



Voici un exemple de combat : 
Vous êtes près du château, tout 
d'un coup surgit un gobelin 

Le gobelin frappe le premier. Il 
réalise un 8. 8 est supérieur ou égal 
à 7, donc le coup a porté. La bles- 
sure infligée (RND(3) - 1 ) est de 3, 
Votre nouveau total est donc de 28- 
3 " 25. 

A vous de frapper Vous réalisez 
un 3. 3 est inférieur à 4, donc votre 
coup n'a pas porté. Au gobelin de 
frapper, etc.. jusqu'à la mort de l'un 
des adversaires. 

Les principales variables sont 
A1 : capital-vie; A2 : constante 
force; A3: résistance; A4: dra- 
peau du trésor; pour l'homme et 

M1 : capital-vie ; M2 : force ; M3 : 
constante force; M4 : résistance; 

pour le monstre. 

(x.v) : coordonnées du point cligno- 
tant. 

l,J,Q; indice de boucle. 

ZZ : drapeau indiquant si on termine 

ou non le jeu 

K: indice de la boucle Mastermind. 

M$(20) : tableau des monstres. 

G$(10): tableau des exclamations 

(commentaires). 

11 : nombre de directions déjà de- 
mandées. 
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FF: drapeau indiquant les diffé- 
rentes impossibilités de se déplacer 
dans une direction donnée 
AS : réponse pour la direction. 
V,W : variables de travail, coordon- 
nées du point lumineux. 
Z : variable de travail, niveau d'in- 
crémentation de la variable I. 
D,D1,D2,D3,D4,D5 : drapeau indi- 
quant si après déplacement on se 
trouve dans le même lieu géogra- 
phique (village, lande, château, 
abords du château.) 
Zl : drapeau pour ravitaillement au 
village. 

W(l| : nombre aléatoire. 
E$ : réponse pour proposition pour 
le coffre. 

G nombre de chiffres justes (de la 
combinaison du coffre). 
F(.l): indique si le chiffre est bien 
placé et juste. 

G (I): indique si le chiffre est mal 
placé mais existe dans la combinai- 
son. 

H : nombre de chiffres mal places 
mais existant dans la combinaison. 
TT : initialisation de la bouc le de lec- 
ture des commentaires 
B$(6) : chaînes de caractères com- 
mentaires, 

T : est égal à 9 ou 1 1 , indiquant si on 
est aux abords du château ou si on 
est dans la lande aride. 
U : variable aléatoire, fin de la bou- 
cle de lecture des données en data 
S : données en data. 
B : variable servant à la détermina- 
tion des nouveaux points de vie; 
montre la force du coup donné à 
l'adversaire. 

ZX ; variable servant à la vitesse de 
clignotement du point lumineux. 
N(29): tableau des points de vies 
des différents monstres au point de 
départ. 

0(20) : tableau des forces de frappe 
des monstres. 

0(20) : tableau des résistances des 
différents monstres. 

Si vous trouvez le jeu trop facile, 
ou trop difficile, il est possible de 
jouer sur les coefficients. Par exem- 
ple, augmenter ou diminuer les 
points de vie du personnage, aug- 
menter ou diminuer sa force. Et 
laissez aussi courir votre imagina- 
tion afin de trouver de nouveaux 
pièges, de nouveaux monstres. 

Un autre développement consiste 
à introduire des possibilités de déci- 
sion de la part du joueur dans le dé- 
roulement des combats. Evitez tou- 
tefois de fuir à toutes jambes lors- 
qu 'arrive le premier monstre 

Bon voyage. Peut-être en réchap- 
perez -vous, mais rien n'est moins 

Jean-Pascal Humbert 
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■l'avenir?- 



à devin, devin et demi 

choisissez 

vos bons augures 




Il y a certaines choses qui n'ont 
l'air de rien mais que l'être hu- 
main n'accomplit qu'avec de 
s grosses difficultés. On trouve 
° E même certaines activités, appa- 
p remment simples comme bonjour, 
•?. qui sont pratiquement impossi- 
ë blés à effectuer. Ainsi, par exem- 
| pie (mais cet exemple n'a pas été 
âchoisi au hasard) dire n'importe 
| quoi. Quels que soient les efforts 
| que l'on consent et les précau- 
£ tions dont on s'entoure, ce que 



'Il HB 'I 

I on dit a toujours un sens. Il n'est 
pas toujours facile de restituer ce 
se_ns intégralement, mais si l'on 
accepte de passer un certain 
temps à y réfléchir, on en retrouve 
au moins quelques bribes. 

Essayez de dire une phrase qui 
n'ait « ni queue ni tête », notez-la, 
recherchez ce qu'elle vous évo- 
que, faites un petit effort, et vous 
vous apercevrez sans doute 
qu'elle n'est pas insignifiante. Il y 



« L'avenir n'est à personne » disait Victor Hugo. 
Ne laissez donc à personne le soin de le. préparer 
pour vous : si vous avez besoin d'un petit oracle, 
pourquoi n'utiliseriez-vous pas un programme en 
BASIC pour TRS. 



a en fait de fortes chances pour 
que cette phrase vous parle, et il 
est logique d'en conclure que, 
lorsqu'on dit « n'importe quoi », 
quelque chose nous échappe... 

Certains psychologues soutien- 
nent même l'idée selon laquelle il 
nous serait impossible de donner 
un nombre « au hasard ». En creu- 
sant un peu ce que ce nombre 
nous dit, on y découvrirait assez 
vite qu'il n'est pas si quelconque 
que cela. Bref, si l'on peut risquer 
cette formule peut-être désagréa- 
ble, nous serions dotés d'un très 
le nombres 

Dire n'importe quoi... Essayons 
tout de même. En nous faisant 
aider par un ordinateur individuel, 
nous devrions presque y réussir. 
Sur ce type de machines en effet, 
on peut utiliser des séquences 
d'instructions qui fournissent des 
nombres tirés au hasard. Peu 
nous importe ici de savoir si les 
loteries arithmétiques respectent 
parfaitement les lois de la proba- 
bilité ; il suffit que les nombres 
tirés ne nous soient pas connus 
d'avance. 

Ces nombres serviront à choisir 
des mots, et avec ces mots le 
programme construira des phra- 
ses qui, très probablement, nous 
étonneront. Pour la plupart d'en- 
tre elles, il ne nous serait jamais 
venu à l'idée de les prononcer ! 

Comme chacun sait, l'ordina- 
teur compte bien ; nous nous ar- 
rangerons donc au passage pour 
lui confier la tâche de compter les 
syllabes des phrases et nous 
ferons en sorte que chacune des 
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phrases aient douze syllabes. 

Pour être tout à fait précis, ce 
n'est pas la syllabe que nous 
ferons décompter, mais - alexan- 
drin oblige - c'est le pied. 

Dans cette version du pro- 
gramme, nous nous contenterons 
d'un alexandrin très classique, ré- 
gulièrement coupé en deux parties 
égales (en versification, on parle 
d'hémistiches) séparées par une 
petite pause vocale (la césure). 
Essayez de vous souvenir, je suis 
certain que vous avez appris tout 
cela durant votre scolarité. Si 
vous avez complètement oublié, 
ne vous faites pas de souci ; voici 
un exemple d'alexandrin classi- 
que et régulier (mais pas très fa- 
meux) : 



place disponible dans la « mé- 
moire » de votre machine. 

La seconde restriction est 
beaucoup plus fâcheuse, car elle 
conduit en fait à donner à tous ces 
alexandrins automatiques un air 
de famille. Chacune des phrases 
étant bâtie sur le même modèle 
grammatical, il est difficile d'en 
aligner quatre ou cinq d'affilée 
sans engendrer une impression 
passablement désagréable de 
monotonie. Il n'était donc pas 
question de s'essayer à produire 
des épopées. Et je n'aborde pas le 
problème de la rime ! 

Sachant par ailleurs que le but 
du programme était de produire 
des textes qui signifient n'importe 
quoi, j'ai pensé qu'il fallait mieux 



Tous les ordinateurs 



1" hémistiche 



font des alexandrins 



assez jolis : on y comprend ce que 
l'on veut et c'est très bien. D'au- 
tres encore, les plus nombreux, 
sont obscurs. 

Avec beaucoup de patience, on 
parvient à « tirer un vers » excel- 
lent de loin en loin. L'ordinateur 
est infatigable, mais pour mériter 
ce petit joyau de douze pieds qui 
survient on ne sait pourquoi, on 
doit s'infliger la lecture d'une lon- 
gue série d'alexandrins très her- 
métiques. Pour l'avoir pratiquée 
plusieurs heures, je sais que ce 
jeu est assez fastidieux à la lon- 
gue. Et c'est la raison pour la- 
quelle je vous en propose un 
autre. Au demeurant, cela ne vous 
privera pas des rares alexandrins 
bien trouvés qui peuvent toujours 
survenir. 

Puisqu'elles sont les plus nom- 
breuses, intéressons-nous aux 
phrases obscures. Ces vers sibyl- 
lins ont en effet toutes les carac- 
téristiques des oracles : le sens 
en est obscur et ils disent n'im- 
porte quoi. Chacun peut y lire son 
avenir ou celui des autres, chacun 
peut y lire ce qu'il veut. Vous voici 



-rebonds- 



Ce type de vers, qui est un des 
plus répandus de la poésie fran- 
çaise, a son rythme bien à lui, il 
s'en dégage une petite musique, 
une scansion particulière, tarata- 
ratata (silence) tarataratata, soit 
six pieds plus six pieds, ce qui fait 
douze. Le compte est bon. Natu- 
rellement, il y a des variantes sur 
le même schéma rythmique : 
. tatarata-tata/taratata-tata 
. tatara-tatara/tata-taratata 
. tata-taratata/tarata-tarata 
. etc. 

et je vous fais grâce du reste car 
le programme s'en chargera très 
bien. 



Construire 
des alexandrins 
par milliers 



LE MOULIN DU REVEIL 
UN LUTIN DE MISERE IRA VERS LA DOUCEUR. 



SIRENE DE L'IRONIE 
LE REVEUR IMPORTUN A SURPRIS LA BEAUTE. 



LA MINUTE DE L' AFFECTION 
UN MALHEUR TRANSPARENT IMPLORE LA MALICE. 



REGARD DU DEDAIN 
UN DESIR TOUT A COUP A CASSE L'AMITIE. 



DEESSE DE LA RIVIERE 
UN CONTEUR RAYONNANT ACCUEILLE SA CHANSON. 



Pour ne pas repousser trop loin 
les limites du raisonnable, j'ai dé- 
cidé que le vocabulaire utilisé se- 
rait composé de quelques centai- 
nes de mots et que tous les vers 
fournis par l'ordinateur seraient 
« coulés » dans le même moule 
syntaxique : sujet / verbe / 
complément. 

Que le vocabulaire ne soit pas 
très étendu n'a guère d'impor- 
tance, à condition bien entendu, 
qu'il soit bien choisi. Vous pouvez 
d'ailleurs le modifier au gré de 
votre fantaisie et le faire grossir 
autant que vous le permettra .la 



ne pas s'étendre... C'est bien 
connu, ce sont les plaisanteries 
les meilleures. Je me suis donc 
modestement contenté de 
poèmes qui ne comptent qu'un 
seul vers. Cela se fait en Chine et 
au Japon : quelques mots qui 
vous font on ne sait trop quoi, 
Vous les écoutez et cela vous 
laisse tout chose. 

Seulement voilà, dans le pro- 
gramme en question, ce n'est ni 
comme en Chine ni comme au 
Japon. Ici, tout se fait au hasard, 
et même si parfois le hasard fait 
bien les choses, ce n'est pas la 
règle générale. Certains alexan- 
drins sont d'une banalité affli- 
geante (j'aurais pu les écrire moi- 
même, c'est dire), d'autres sont 



devin. La Pythie de Delphes, qui 
s'était fait une solide réputation 
en la matière, ne procédait pas 
autrement. Il suffit de dire n'im- 
porte quoi, et si la phrase impéné- 
trable est parée des vertus de 
l'oracle, il se trouvera toujours 
quelqu'un pour lui donner un 
sens, pour l'orienter, il se trouvera 
toujours une situation à venir où 
elle deviendra limpide. 

N'allez pas toutefois en faire le 
commerce : la loi française, à 
juste titre, a prévu des peines 
pour quiconque abuserait de la 
crédulité publique. Et je crois 
qu'elle a très bien fait. 

Vostradamus 



le tennis 
dans un fauteuil 



Il y a beaucoup de jeux pour ordinateurs indivi- 
duels qui occupent plusieurs personnes, 
preuve que l'ordinateur n'isole pas nécessaire- 
ment, mais qu'il peut bien au contraire réunir. 
Lorsque votre écran se transforme en un court 
de tennis, vous ne jouez pas avec ou contre la 
machine, vous jouez grâce à elle, et entre 
vous : le tennis est par excellence un jeu où 
l'on se renvoie la balle. Pour utiliser ce pro- 
gramme de tennis, vous n'aurez besoin ni de 
balles ni de raquettes, mais vous pouvez pré- 
voir deux sièges confortables. 



On retrouvera ici les principes 
sur lesquels reposent certains jeux 
« vidéo » : deux raquettes se dé- 
placent verticalement aux deux ex- 
trémités de l'écran. Dans l'entre- 
deux, une balle vient rebondir de 
l'une à l'autre et sur les côtés 
supérieur et inférieur de l'écran jus- 
qu'à ce que l'un des joueurs la 
laisse passer derrière la raquette, 
ce qui lui fait, bien entendu, perdre 
un point. 



Que penserait Borg 

des balles 

à vitesse réglable ? 



Le programme a été conçu sur 
un TRS 80 niveau 2, et il occupe 
environ 3 Ko en mémoire. 

Pour les mouvements de la ra- 
quette vers le haut et vers le bas, 
chacun des deux adversaires dis- 
Pose de deux touches. Celui de 
gauche appuie sur les touches por- 
tant les flèches verticales (vers le 
haut et vers le bas : sans commen- 
taire). Celui de droite obtient le 



même résultat en enfonçant res- 
pectivement les touches numéri- 
ques 9 (vers le haut) et 6 (vers le 
bas). Vous constaterez qu'on s'y 
habitue très vite. 

Pour que tout le monde puisse 
trouver son bonheur, le joueur 
averti comme celui qui n'a jamais 
touché une raquette, on a prévu 
pour la balle une vitesse réglable. 

Les deux adversaires choisis- 
sent cette vitesse au début de la 
partie (ligne 300 à 350) en indi- 
quant un chiffre compris entre 2 et 
5. Cette valeur est rangée dans 
une variable C et représente l'inter- 
valle, en abscisse, de l'affichage 
de la balle. Avec 2, les échanges 
sont très calmes. Avec 5, on s'en- 
voie des « boulets de canon ». 

Le graphisme du TRS 80 mo- 
dèle I (une grille de 128 x 48) ne 
permet pas d'accroître l'intervalle 
des déplacements sur l'axe des 
ordonnées : il s'effectuera toujours 
avec un pas égal à l'unité. Une 
valeur supérieure transformerait 
notre tennis en une sorte de bil- 
lard... 

C'est aux lignes 600 à 1600 
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qu'est déterminée la direction de la 
balle. Le court de tennis occupe 
toute la hauteur de l'écran (ordon- 
nées à 47) et presque toute sa 
largeur (4 à 124). Lorsque la balle 
heurte les bordures inférieure ou 
supérieure du terrain, ou encore 
une raquette, elie rebondit avec un 
angle variant entre 90 et 140" en 
fonction de sa vitesse. Aux lignes 
750, 950, 1 150 et 1 350, l'ins- 
truction POINT vérifie si le pro- 
chain segment situé sur le par- 
cours de la balle est ou non allumé. 
Si c'est le cas, le rebond s'effec- 
tue, sinon la balle continue sur sa 
trajectoire. 

Pour ajouter un peu d'imprévu 
dans le déroulement des parties, 
on a réservé un cas où la balle 
rebondit de tout autre façon : lors- 
qu'elle heurte l'extrémité d'une ra- 
quette, elle repart bien en sens 
inverse, mais selon la même droite 
(dans le jargon des joueurs de 
tennis, vous avez fait un « bois »)■ 

Ce faux-rebond est soigneuse- 
ment organisé aux lignes 770, 
970, 1 170 et 1 370. 

Lorsque la balle franchit les limi- 
tes extrêmes du jeu sans rencon- 
trer de segments allumés (ni ra- 



quette, ni bordure), le programme 
saute à la ligne 2 000 pour le 
départ d'une nouvelle balle. Natu- 
rellement, l'adversaire marque un 
point. Les raquettes reviennent à 
leur position de départ et le pro- 
gramme lance la balle dans une 
direction qui est laissée à la fantai- 
sie de l'instruction RND (ligne 
2 030) ; autant dire que l'engage- 
ment se fait n'importe comment et 
qu'il faut être sur ses gardes ! 





hili'eau (A-s variables 


X 

Y 


Coordonnées de la balle 


M. 


Scores des deux joueurs 


A 


Déplacements des deu* 


A 


raquettes 


H. 


Coordonnées de départ 


H, 


delà balle 


D 


Lim.tes de renvoi 


F 


de la balle 


U 


Direction de départ 




delà balle 


B 


AHichoge des limites 




inférreure et supérieure 






C 


Vitesse de la balle 


E. 


Abscisses des sorties 


£, 


de baltes 



Le déplacement des raquettes 
est assuré par les sous-program- 
mes débutant aux lignes 1 500 et 
1 800. Grâce à l'instruction PEEK 
qui scrute l'état des touches réser- 
vées à chaque joueur, la raquette 
se déplace aussi longtemps que la 
touche reste enfoncée. 

Deux conseils pour terminer : 

. Tout d'abord, les personnes qui 
n'ont aucune expérience de ce 
type de jeux pourront, bien en- 
tendu, modifier le programme de 
façon à se munir d'une raquette 
immense, ils diminueront d'autant 
le risque de rater la balle... 

Enfin, dans sa version actuelle, le 
programme se contente de comp- 
ter les points un par un. A gagné le 
premier joueur qui totalise 10. 
Mais au tennis, comme chacun 
sait, on compte d'abord de 1 5 en 
1 5, puis ça se complique, et je ne 
parle pas des sets et des manches. 
Rien ne vous empêche de faire en 
sorte que l'affichage des résultats 
respecte les règles en vigueur à 
Roland-Garros. A votre s 
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-chasse- 



les minotaures 

du 

labyrinthe 



Ce mois-ci, nous vous proposons de revivre 
l'une des plus palpitantes aventures de Thé- 
sée. Vous vous souvenez, Thésée : celui qui 
avait réussi à se faire un ami d'Hercule. Rien ne 
l'arrêtait, celui-là. Un jour, il se met dans la 
tête de débarrasser la Crète d'un horrible 
monstre - il n'y a pas d'autre mot - qui dévo- 
rait une douzaine de jeunes athénien(ne)s cha- 
que année, et voilà notre Thésée parti pour la 
Crète. Cette extraordinaire histoire, vieille de 
plusieurs milliers d'années, nous a été trans- 
mise par le bouche à oreille, et il en existe 
plusieurs versions. Celle dont est inspiré le 
programme pour PET proposé ici n'est pas la 
plus connue. 



En ce temps-là, il n'y avait pas 
un Minotaure, mais des Minotau- 
res. Beaucoup de Minotaures. Et 
ce n'esî pas étonnant quand on 
sait que ces créatures mi-homme, 
mi-taureau, étaient aussi bêtes 
que fortes : il en mourait beau- 
coup. En fait, il s'agissait de brutes 
défonçant les murs du labyrinthe, 
tellement gloutonnes qu'elles ne 
pouvaient pas se retenir de dévo- 
rer tout ce qu'elles trouvaient. En 
s'y prenant bien, on avait quelques 
chances d'en empoisonner. 

En réalité, quand Thésée est allé 
? en découdre dans le labyrinthe, 
-S Ariane n'était pas au bout du fil, et 
2 pour cause : sa mère, Pasiphaé (qui 
c était une spécialiste de la broderie) 
I n'aimait pas du tout qu'on touche 
1 à ses affaires et elle enfermait 
| toutes ses bobines sous clé avec 
| un soin qui confinait à la manie. 
4 M faut savoir aussi que dans ce 

04 Dossier Programmes n° 54 bis déc. 1933 



curieux palais, les placards des 
communs regorgeaient de boulet- 
tes de nourriture pour animaux do- 
mestiques (il fallait bien alimenter 
les minotaures). Seulement, le roi 
Minos, le mari de la brodeuse, était 
mauvais payeur : il ne réglait 
jamais ses dettes. Ses fournis- 
seurs, excédés à la longue, lui ré- 
servaient toute leur marchandise 
avariée. Certaines boulettes 
étaient tellement gâtées qu'elles 
étaient franchement toxiques. 
C'est donc les bras chargés de ces 
mauvaises boulettes que Thésée 
pénétra dans le labyrinthe. Ariane 
lui en jetait de nouvelles, toutes les 
minutes par-dessus les murs du 
labyrinthe et Thésée n'avait plus 
qu'à les laisser bien en vue derrière 
lui, et dès qu'un minotaure en trou- 
vait une, il l'engloutissait et ne 
s'en relevait pas. 

C'est exactement ce qui se 
passe dans notre programme. Au 



début du jeu, nous voyons se des- 
siner sous nos yeux un labyrinthe 
dont les détours et les recoins sont 
choisis au hasard (sous-pro- 
gramme 1300-1870). Apparais- 
sent ensuite deux boulettes de 
nourriture empoisonnée (sym- 
bole + ), Thésée lui-même (♦) et le 
premier minotaure {*). Puis une 
petite musique nous annonce que 
la poursuite infernale débute dans 
le dédale. Bien entendu, pour ceux 
qui le désirent, le programme est 
entièrement sonorisé. Le monstre 
ne reculera devant rien pour es- 
sayer de rattraper Thésée. Il n'a 
qu'une idée en tête : dévorer de ls 
chair fraîche, et la faim le travaille 
tellement qu'il lui arrive d'emprun- 
ter des raccourcis fracassants ; à 
certains moments, il fonce tête 
baissée dans le mur et passe à 
travers les gravats. 

Naturellement, le plus excitant 
de l'histoire, c'est que vous êtes à 
la place de Thésée... Pour vous 
déplacer, c'est-à-dire pour fuir, 
vous disposez des touches numéri- 
ques 1 à 9. 

\ t / 
Vi\* 



I 



\ 



Le 5 vous immobilise. Quand 
vous vous déplacez dans une di- 
rection donnée (les diagonales 
sont possibles), il est inutile de 
maintenir enfoncée la touche cor- 
respondante : vous continuerez à 
vous déplacer tant que vous n'ap- 
puierez pas sur une autre touche, à 
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moins, bien entendu, qu'un mur ne 
vous arrête. A la différence des 
minotaures, vous n'êtes pas un 
passe-muraille. Quand vous avan- 
cez, il vous suffit d'appuyer sur 
SPACE pour laisser tomber une 
boulette d'aliment toxique. Mais 
ne faites qu'une chose à la fols, 
une seule touche à la fois , et allez 
votre chemin de petit poucet en 
semant vos boulettes. 

Sur l'écran, un compteur vous 
indiquera en permanence le nom- 



bre de boulettes qui vous restent. 
Bien entendu, vous pouvez ramas- 
sez une boulette qui traîne par 
terre : il vous suffit de passer 
dessus. 

Le monstre, lui, réagit tout au- 
trement : dès qu'il passe sur une 
boulette, il la dévore. Vous le 
voyez se tordre de douleur et vous 
l'entendez gémir. Puis il disparaît, 
mais il est aussitôt remplacé par 
un autre monstre qui surgit à un 
endroit imprévu du labyrinthe (par 



une porte dérobée). Le jeu conti- 
nue... 

Votre score est en permanence 
affiché en bas et à droite de 
l'écran ; il est égal au nombre de 
monstres que vous avez empoi- 
sonnés multiplié par le nombre de 
secondes pendant lesquelles vous 
avez... survécu ! 

Si vous recherchez vraiment ia 
difficulté, le programme vous offre 
une option « à l'aveuglette » : vous 
pouvez, si vous le désirez, avoir un 
labyrinthe invisible. Au tout début 
de la partie, le labyrinthe se dessi- 
nera sous vos yeux, puis s'effacera 
comme par enchantement (sic !). A 
partir de ce moment, chaque fois 
que vous ou le monstre, butterez 
contre un mur, le morceau de mur 
apparaîtra. Dans cette version, le 
jeu est beaucoup plus difficile, 
vous aurez donc plus de boulettes. 

Il ne nous reste plus qu'à vous 
souhaiter une bonne chance dans 
votre chasse aux monstres. Ne 
vous affolez surtout pas : on est 
beaucoup plus efficace quand on 
conserve son sang-froid, même s'il 
s'agit de fuir devant un monstre 
affamé qui vous trouve très appé- 
tissant. 
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es joies de la piste 

(et les feux de la rampe !) 




Prenez un crayon magique, dessinez un circuit 
automobile sur votre écran Pet/CBM. Un laby- 
rinthe de préférence plus un autre encore plus 
compliqué et enfin, un parcours suicidaire. Ajou- 
tez un zeste d'effets sonores. Quatre touches 
suffiront à vous envoyer dans le décor ! 




Même sans permis, vous pour- 
rez essayer le bolide sur l'un des 
circuits que vous propose votre 
CBM, Cependant, il vous faudra 
concentration, réflexes et toutes 
les autres qualités nécessaires à 
la conduite d'une véritable for- 
mule 1 . Avant le départ , attachez 
votre ceinture, car après il sera 
trop tard... 




En effet, vous vous en aperce- 
vrez très vite, la partie se termine 
généralement (à dire vrai : à tous 
les coups) par un accident. Mal- 
gré tout, le but du jeu est de 
rester le plus longtemps possible 
sur la piste. 

Le programme commence tout 
d'abord par vous indiquer 
comment vous déplacer. Ainsi, 
vous disposez des touches 4 et 6 
et des lettres A et Z : 

t 



4-1-6 
Z 

I 
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Ensuite, vous pourrez choisir 1 
votre vitesse initiale, mais atten- S 
tion, il n'y a pas de freins. Cepen- ,| 
dant, voici les notations : 

1 conducteur saoul... (si vous £ 



'■ en 



— 
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cette forme 
espaces ent; 
tendes: 



Remarques 
i prpgram 



e interface son 
s son vous gêni 



agissez su 
:' Enfin, 



a colonne 35 de votre CBM. 
îs touches clefs ne vous c< 



100 km/h, modifiez le 




voyez deux ordinateurs au I 
lieu d'un) 
. 25 si vous débutez 
. 50 c'est déjà mieux 
. 75 ça commence à foncer 
. 100 à vos risques et périls... 

Le programme vous demande 
un numéro ; vous avez le choix 
entre trois circuits (moyen, très 
difficile, suicidaire). Quand vous 
avez trouvé celui qui vous plait, 
appuyez sur #, et vous verrez 
apparaître votre bolide. Son mo- 
teur tourne et vous pouvez l'en- 
tendre, si vous avez, bien sûr, 
branché votre haut-parleur. Votre 
formule 1 n'attend plus mainte- 
nant que vos instructions pour 
partir. Mais, accrochez-vous, car 
dès que vous rencontrerez une 
botte de paille, votre véhicule se 
désintégrera purement et simple- 
ment. 

Enfin, si vous êtes le meilleur, 
l'ordinateur vous demandera 
quelques renseignements admi- 
nistratifs ; sinon, il vous nar- 
guera, en vous rappelant le score 
et le nom de l'as du volant qui a 
fait mieux que vous. 

Une dernière précision : à cha- 
que accident (toutes les 30 se- 
condes environ), votre ordinateur 
vous demandera si vous voulez 
faire une dernière tentative sur le 
même circuit et à la même vi- 
tesse. 

Ce programme tient sur 9K, 
mais si votre CBM (3 000 ou 
4 000) a une mémoire plus éten- 
due, rien ne vous empêche de 
rajouter un autre circuit. Pour 
cela, il suffit de modifier la ligne 
1 1005 en ajoutant le numéro où 
commencera le dessin de votre 
nouveau circuit, et d'autre part, 
rajouter une instruction entre les 
lignes 1 1020 et 1 1060 pour que 
l'ordinateur sache que lorsque 
vous appuyez sur la touche 4, il 
faut afficher le nouveau circuit. 

Il ne me reste plus qu'à vous 
souhaiter bonne chance... 
Et bonne route 



-conte- 




alice au pays 

des merveilles 

logiques 



En 1896, à Londres, le Révérend CL. Dodgson, 
habite photographe, ennuyeux professeur de ma- 
thématiques et logicien passionné, publia un ou- 
vrage intitulé « Symbolic Logic », traduit, bien plus 
tard, en français, sous le titre « Logique sans 
peine » (Hermann, 1966). Il y proposait certaines 
méthodes propres à déceler « la », ou « les » 
conclusions cachées dans une liste d'hypothèses. 



Patrick Choquei 



Les exercices présentés, dans 
le droit fil d'Alice, jaillissaient 
d'univers fantastiques, liés ce- 
pendant au nôtre par une 
commune logique. 

Voici un exemple de ses exerci- 
ces. 

1) Aucun chaton qui aime le pois- 
son n'est réfractaire à l'étude. 

2) Aucun chaton sans queue n'est 
prêt à jouer avec un gorille. 

3) Les chatons moustachus ai- 
ment toujours le poisson. 

4) Aucun chaton amoureux de 
l'étude n'a les yeux verts. 

5) Aucun chaton n'a de queue s'il 
n'est moustachu. 

Avez-vous, cher lecteur {ou lec- 
trice), trouvé la conclusion, oh 
combien logique, de ces cinq pré- 
misses ? Si oui, vives félicita- 
tions ! Sinon une curiosité irré- 



pressible vous incitera, peut-être, 
à poursuivre. 

Les procédés de Lewis Carroll 
utilisaient un ensemble de dia- 
grammes en forme de damiers, et 
des listes d'indices. A cette épo- 
que, vous vous en souvenez, les 
ordinateurs n'étaient pas nés et la 
logique mathématique hasardait 
ses premiers pas. 

Les temps ayant changé, je me 
suis demandé si, en 1982, un PSI 
(petit système informatique), 
convenablement éduqué, pouvait 
résoudre les énigmes, contempo- 
raines du Pays des Merveilles. La 
réponse est positive. Le pro- 
gramme ci-dessous baptisé 
« Lewis Carroll », accepte les hy- 
pothèses, en langage presque na- 
turel, sous la forme suivante. 

a) Classe générale : chaton. 

b) Liste d'attributs ou propriétés. 



1 ) Chaton aux yeux verts. 

2) Chaton qui aime le poisson. 

3) Chaton qui a une queue. 

4) Chaton amoureux de l'étude. 

5) Chaton moustachu. 

6) Chaton prêt à jouer avec un 
gorille. 

c) Prémisses : 

— aucun 2 n'est non 4, 

— aucun non 3 n'est 6, 
-tout 5 est 2, 
-aucun 4 n'est 1, 
-tout 3 est 5. 

Après quelques brefs instants 
de réflexion, la réponse apparaît à 
l'écran ou sur l'imprimante : 

« Aucun chaton aux yeux verts 
n'est prêt à jouer avec un gorille. » 

C'est le bon sens même ! 
Voyons maintenant la structure 
du programme. 

Quelques 

éléments d'analyse 
logique \ 

Définissons, d'abord, un « uni- 
vers logique ». Il décrit la classe 
générale des êtres ou objets qui . 
seront considérés (choses, per- 
sonnes, créatures vivantes, etc.). > 
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Donnons-nous, ensuite, une 
liste d'attributs ou de propriétés 
de ces objets (avares, joyeux, qui 
attendent, riches aux yeux 
verts.... 

A chaque propriété, peuvent 
être associés deux classes : 

- celle des objets de l'univers lo- 
gique qui ont cette propriété 
(classe C), , . 

- la classe complémentaire (desi- 
gnée par non C ou C| des objets 
qui ne jouissent pas de la pro- 
priété considérée. 

Nous nous limiterons, ensuite, 
à des jugements ou propositions 
liant deux classes A et B. Ils ne 
peuvent être que de trois types, 
visualisés par des diagrammes : 




En associant à toute classe C, 
la classe complémentaire C, l'ex- 
clusion peut être ramenée à l'im- 
plication. En effet : 

« aucun A n'est B » 
équivaut à : 

«tout A est non B ». 

En définitive, dans le cadre, li- 
mité, des relations binaires, deux 
types seulement subsistent : 

— l'implication ou inclusion, 

- l'intersection. 

Par ailleurs, à chacun de ces 
deux types, peuvent être toujours 
associées deux relations équiva- 



lentes, qui mettent en jeu les clas- 
ses et leurs complémentaires, 
implication : 

« tout A est B », 
« tout non B est non A ». 
Intersection : 

« quelque A est B », 
« quelque B est A ». 
Les déductions ou raisonne- 
ments ici considérés reposent sur 
deux types de chaînages ou tran- 
sitâtes entre relations. 

a) Transitivité forte ou chaîne 
d'implications : si tout A est B, 
tout B est C, tout C est D, alors 
tout A est D. En bref, toute chaîne 
d'implications permet d'associer, 
par une implication finale (conclu- 
sion), les deux bouts de la chaîne.' 

b) Transitivité faible : si quelque A 
est B, tout B est C, tout C est D, 
alors quelque A est D. Autrement 
dit, toute suite de relations, 
commençant par une intersection 
et suivie d'une chaîne ininterrom- 
pue d'implications, permet de 
conclure à une relation d'intersec- 
tion entre les deux extrémités de 
la chaîne. 



complémentaires) se traduira par 
deux arcs équivalents : 

a) Implication : deux arcs en traits 
pleins 

X - Y 

Y » X 

b) Intersection : deux arcs en 
traits pointillés 

X - Y 

Y * X 

Exemple . 

Le 'graphe représentatif des 
trois relations suivantes : 
« quelque A est C » 
« tout B est C » 
« tout C est D » 
apparaît ainsi : 



Graphe 

des 

relations 



A toute classe C, définie par 
une propriété ou un attribut, nous 
pouvons associer deux points 
d'un graphe représentant : 

— l'un, la classe C elle-même, 

— l'autre, la classe complémen- 
taire C. 

Toute relation binaire entre 
deux classes X et Y (ou leurs 





Le graphe traduit, exactement, 
les prémisses. Reste à formuler 
une méthode systématique et 
sûre (un algorithme) pour trouver 
la ou les conclusions. 

Pourrait être appelée « conclu- 
sion » toute relation nouvelle, 
symbolisée par un arc supplémen- 
taire du graphe, créé en applica- 
tion des règles de transitivité 
(forte ou faible) plus haut énon- 
cées. 

De ce point de vue, les chaînes 
d'arcs : 

A — - D — ■ B 
et A — C — E 
entraîneraient : 

A — B 
et A --- - E 

quelles que soient les situations 
respectives des points dans le 
graphe. Ce jeu autoriserait, sou- 
vent, nombre de conclusions, 
certes vraies, mais sans intérêt 
majeur. Nous définirons le 
concept de conclusion, de façon 
plus restrictive, suivant, d'ail- 
leurs, en cela, Lewis Carroll, qui 
distinguait des « éliminendes » et 
des « rétinendes ». Pour nous, une 
« conclusion » sera caractérisée 
comme suit : 

a) relation nouvelle, donc non 
présente dans le graphe des pré- 
misses ; 

b) point terminal sans succes- 
seur à transitivité forte ; 

c) point initial, au départ d'un arc 
« faible » ou sans ascendant, au 
départ d'un arc « fort ». 
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1999 REM *****S0US PROGWraiES******** 
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38 F*INT"0'UN GROUPE DEFINI HE PREMISSES" 
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2BB5 REM 


H PRIT 'PRINT "ENTREE DES DONNEES" 
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22B8 REN 
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L'algorithme de recherche des 
conclusions comprend donc les 
phases suivantes : 

a) rechercher les sommets termi- 
naux, c'est-à-dire, sans succes- 
seur lié par un arc « fort » ; 

b) à partir de chaque sommet ter- 
minal, « remonter » le graphe, en 
déterminant tous les ascendants 
de ce sommet, jusqu'à rencontre 
des points sans ascendant ou des 
arcs faibles ; 

c) écrire les transitions résultant 

Es règles de transitivité, c'est-à- 



dire tracer les arcs nouveaux. 
C'est une forme du processus ap- 
pelé par les mathématiciens « fer- 
meture transitive du graphe » ; 
d) éliminer les éventuelles 
« conclusions » de ce type déjà 
présentes dans le graphe initial. 

Ainsi, les conclusions tirées du 
graphe très simple, pris, plus 
haut, en exemple, seraient,: _ 

sommet terminaux : A, A, B, D, 

conclusions : D — — "B, 

A— »D, B— *. D 

Certaines conclusions, on le re- 



marquera, sont équivalentes, par 
exemple ici : B D et D B. 

Nous n'en présenterons qu'une. 

Notre ensemble de règles peut 
être complété sur un point parti- 
culier. 

Les relations : 

«tout A est C » 
« tout A est D » 
entraînent, à l'évidence, que les 
classes C et D ont une partie 
commune, savoir A. En consé- 
quence, la relation « quelque C est 
D » est une conclusion valable, qui 
doit être ajoutée à la liste. 
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Le jeu, ici décrit, pourrait, en 
principe, nécessiter seulement un 
crayon et beaucoup de papier. 
Lewis Carroll l'aurait sûrement 
découvert, s'il avait connu la théo- 
rie des graphes. En pratique, pour 
un nombre même restreint de pré- 
misses, la combinatoire des arcs 
devient vite pénible et, bien sûr, 
l'ordinateur arrive à point, pour 
nous aider. 

Représenter 
données, et phases 
du programme 

Les points importants, pour 
une bonne compréhension du pro- 
gramme, concernent la représen- 
tation des données et l'algorithme 
de calcul des conclusions. 

Après indication de l'univers lo- 
gique {ou classe générale) consi- 
déréle], la liste des N attributs est 
entrée, sous forme d'une table 
A${l). 

Le graphe logique, traduisant 
les hypothèses ou prémisses est, 
comme il se doit, transformé en 
une matrice H $ (I, J). Chaque 
attribut (de numéro X) crée deux 
classes complémentaires d'indi- 
ces X (de 1 à N) et XC (de N + 1 à 
2N). 

Symboles utilisés : 
H $ (I, J) = « | » signifie « classe I 

incluse dans J » 

H $ (I, J) = « * » signifie « classe I 

intersecte J » 

Chaque prémisse engendre 
deux relations équivalentes, de 
cette forme. Par exemple, s'il y a 
10 attributs, l'hypothèse : 

« tout 3 est 5 » 
donne : 
H$(3,5) = «î»etH$(15, 13) = 

La première partie du pro- 
gramme (instructions 10 à 630) 
réalise une analyse syntaxique 
des prémisses, afin de construire 
et d'écrire la matrice H $ équiva- 
lente (interpréteur très simplifié). 

Une autre matrice H 1 $ (I, J) 
représente les conclusions, selon 
le codage suivant : 
H 1 $ (X, Y) = « T » signifie « tout 

X est Y » 

H 1 $ (X, Y) = « Q » signifie 

« quelque X est Y » 

Les instructions 1100 à 1220 
traduisent ces relations finales en 
un français approximatif, mais, je 
l'espère, compréhensible. 

Le cœur du programme est l'al- 
gorithme de calcul des conclu- 
sions, ci-dessous détaillé (ins- 



tructions 1000 à 1080 et sous- 
programme 4100}. Il utilise le 
marquage, par un « A » de tous les 
ascendants d'un sommet donné. 

A) POUR toute classe d'indice J 
de 1 à 2 + N : 

Si J a un successeur fort, ALLER 
enB) 

SINON : T $ (J) = « A » : ALLER au 
sous-programme C) 

B) SUIVANT de J 

C) indice colonne K = : drapeau 
F = 

D)K = K+ 1 : SI K>2"N, ALLER 
en F) 

SIT$<K)#«A», ALLER en D) 
SINON : drapeau G =0 
POUR indice ligne I de 1 à 2 N 
SI H $ (J, K) = «f», ALLER en E) 
S! H $ {I, K) = « f », T $ (I) = 
« A» :G = 1 : F = 1 : ALLER en E) 
SINON, H 1 $(l, J) = «Q» 

E) SUIVANT de I 
T$(K) = «» 

SIG = 0, H 1 ${K, J) = «T» 
ALLER en D) 

F) SI F = 1, ALLER en C) 
RETOUR 



Seuls les agents 
de police du secteur 
sont des poètes 



Le programme « Lewis Carroll » 
a été écrit pour un CBM, muni 
d'une imprimante. Cela permet de 
garder trace des hypothèses, des 
conclusions et des matrices H $ 
(I, J)etH1 $(l, J). 

Pour travailler sans impri- 
mante, il convient d'apporter les 
modifications ci-dessous : 
Instruction 40 : supprimer OPEN 
4,4 

Instruction 65 : supprimée 
Instruction 95 : supprimée 
Instruction 210 : supprimée 
Instruction 610 : supprimer 
PRINT#4, H$ 

Instruction 620 : supprimer CMD 
4 

Instruction 1 225 : supprimer 
PRINT#4 

Afin d'exercer vos capacités lo- 
giques et de nourrir le pro- 
gramme, je vous propose 
l'énigme suivante, en provenance 





Liste des variables 


A $|l) 


= table des attributs 


HÎO.J] 


= table des symboles définissant les 




relations entre classes, selon les pré- 




misses indiquées. 




= table des symboles définissant les 




relations entre classes, selon les 




conclusions calculées. 


T(l) 


= table intermédiaire des ascendants 




d un sommet du graphe. 


Z(D 


= table intermédiaire des indices uti- 




lisés pour le calcul des conclusions 




complémentaires. 




= classe générale. 


F, G, H 


= drapeaux 




= type dune relation entre deux clas- 


H$ 


= chaîne de caractère contenant une 




hypothèse ou prémisse. 


H1Î.H2: 


= fragments de la chaîne H $ analy- 




sée. 


N 


= nombre des attributs. 


X,V,XC,YC= indices de classes ■:* de :.;,-. 




complémentaires. 




= variables intermédiaires des sous- 




programmes d analyse de chaînes. 




= indices courants d une classe et 




chaîne associée utilisés dans le sous- 




programme d impression des matri- 




ces. 



-exotique- 




directe de Lewis Carroll : 

1. Tous les agents de police du 
secteur dînent avec notre cuisi- 



2. Aucun homme aux cheveux 
longs ne peut être autre chose 
que poète. 

3. Amos Judd n'a jamais fait de 
séjour en prison. 

4.^ Les « cousins » de notre cuisi- 
nière aiment tous le gigot froid. 

5. Seuls les agents de police du 
secteur sont poètes. 

6. Seuls ses « cousins » dînent 
avec notre cuisinière. 

7. Les hommes aux cheveux 
courts ont tous fait un séjour en 
prison. 

Conclusion ? 

Bonne chance ! 

René Descamps 



et si on jouait 

à l'Awalé 

surTRS80? 



L'Awalé, bien que peu connu en Europe, est l'un 
des jeux les plus répandus dans le monde. Il se 
pratique dans presque toute l'Afrique. On le 
retrouve sous divers noms et parfois sous diffé- 
rentes variantes. C'est la variante du pays 
Baoule (Côte d'Ivoire) qui vous est proposée ici, 
accompagnée d'une liste en Basic, pour TRS-80. 
Bien que de réglementation souple, ce jeu vous 
permettra de développer des trésors d'intelli- 
gence tactique et les stratégies les plus élaborées. 




Le matériel est très sobre : un 
« tablier », généralement une 
planchette de bois, dans laquelle 
ont été sculptées quelques alvéo- 
les (le plus souvent douze pour le 
jeu lui-même, quelquefois deux de 
plus pour amasser les gains), et 
des « graines » qui peuvent être 
des grains de café, des haricots 
ou simplement des cailloux, au 
nombre de quarante-huit. 

F E D C 8 A 



Le jeu d'Awalé est connu en Afrique sous différentes appellations et il en 
existe énormément de variantes. On parle ainsi d'Awélé au Sénégal (la 
planche possède alors deux rangées de six cases), de Gissono au Burundi ou 
■de Bao en Tanzanie. Dans ces deux derniers jeux, la planche comporte alors 
quatre rangées de huit cases. A remarquer que ces jeux, qui sont à l'Afrique 
ce que les échecs sont à l'Europe, ont été créés initialement à l'ouest de 
I Afrique sous une forme simple et que régies et damier se sont progressive- 
ment sophistiqués en suivant le sens des grandes migrations. 
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Ce jeu se pratique à deux. 

Chaque rangée de six alvéoles S 
représente le camp de chaque t 
joueur, que nous appellerons P 
Nord et Sud. ~ 

En début de partie, chaque | 
case contient quatre graines. | 

Le premier joueur (Nord ou Sud) | 
peut être tiré au sort ou laissé au | 
choix des adversaires. i 
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Les règles sont également très 
simples : 

1) Sens du jeu : le jeu se déroule 
dans !e sens inverse de celui des 
aiguilles d'une montre. 

2) Déroulement de la partie : les 
adversaires jouent alternative- 
ment, chacun prend à son tour 
toutes les graines contenues dans 
l'une quelconque de ses cases et 
les sème, une par une, dans le 
sens indiqué (on parlera de 
« semis »). 

Si la case jouée contient plus 
de onze graines, le joueur effectue 
un second tour, en sautant sa 
case de départ. 

Des grains de café, des 
haricots ou des cailloux, 
une question de goût 

3) Prise : si, lors d'un semis, un 
joueur dépose sa dernière graine 
dans une case adverse contenant 
déjà une ou deux graines, il prend 
alors tout le contenu de cette case 
(deux ou trois graines) et le dé- 
pose dans la case réservée à ses 
grains. 

Si la case précédant celle de la 
prise est dans le camp adverse et 
contient deux ou trois graines, ces 
dernières sont également prises, 
et ainsi de suite, jusqu'à ce que 
l'on se trouve en présence d'une 
case nous appartenant en propre 
ou vide ou contenant plus de trois 
graines (ou que cette prise nous 
place dans le cas 4, auquel cas il 
faudra jouer une autre case). 

4) Nécessité de donner à « man- 
ger » : il peut arriver, en cours de 
partie, qu'un joueur possède 
toutes les graines de son côté. Il 
doit alors {s'il le peut) jouer une 
case donnant la possibilité à son 
adversaire de jouer à son tour. En 
cas d'oubli de cette règle de cour- 
toisie, il conviendra de la rappeler, 
sans sanction, au joueur 
« étourdi » qui devra recommencer 
son coup. 

Cette règle s'appliquera de 
même lorsqu'une prise éventuelle 
démunit totalement l'« adver- 
saire » : on renoncera alors à 
celle-ci. 

5) Fin de partie : dès que l'un des 
joueurs totalise un gain supérieur 
à 24, c'est lui le vainqueur. 

Si l'un des joueurs est dans 
l'impossibilité de jouer {toutes ses 
cases sont vides), il reçoit alors 
une graine, son adversaire ajou- 
tant à ses gains les graines res- 
tant dans son camp (le vainqueur 
est aussi celui possédant le plus 
de graines). 




Lorsque le nombre de graines 

et leur répartition sont tels que 
toute prise devient impossible et 
la poursuite sans fin, le vainqueur 
est celui qui possède le plus de 
graines. 

Quant au jeu lui-même, il vous 
réserve sans doute bien des sur- 
prises. Tactique et stratégie se- 
ront nécessaires pour devenir un 
bon joueur. 

Le but de cet article n'étant pas 
un cours d'Awalé, nous nous 
contenterons de donner quelques 
éclaircissements d'abord, quel- 
ques conseils ensuite, et vous 
ferez le reste par la pratique, c'est 
encore ce que l'on fait de mieux 
pour apprendre. 

Supposons dans tout ce qui 
suit que c'est à Nord de jouer. 
Nous représenterons par un « . » 
le contenu d'une case lorsqu'il 
n'est pas primordial pour l'expli- 
cation donnée. 
Le début de la partie 

Si Nord joue, par exemple, sa 
case B, il sème ses quatre graines 
dans les cases C, D, E et F (une 
par case) et l'on obtient la confi- 
guration (2) ; si Sud joue ensuite 
sa case f, il sème ses graines 
dans les cases A, B, C, D, et l'on a - 
la configuration (3). 
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La prise 

a) Prise simple : à partir de cette 
position, Nord joue C et gagne en 
c deux graines. 
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b) Prises multiples : Nord joue E 
et gagne 2 + 3+2 = 7 graines en c, 
d, etc. 
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La défense contre une menace 
simple 



■ ■ \6 "■ I ■ I ■ 



La case c de Sud menace de 
prendre les graines des cases B et 
C de Nord. Que peut faire Nord 
pour l'en empêcher ? Il y a trois 
possibilités (au moins). 
a} Jouer C : ainsi c ne menace 
plus qu'une case vide et ne pren- 
dra rien. (Nord a bien sûr mainte- 
nant une graine de plus en E. Le 
total de E étant sans importance 
par rapport au problème). 



a 


b 


Case 
c 


visée 
d 


e 
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F 


12 


13 


14 


15 


16 


17 


Position ^ 


13 


14 


15 


16 


17 


18 


la D 


14 


15 


16 


17 


18 


19 
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Nombre de graines dans la maison | 



-I Ching- 
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b) Joue 
case co 
et ne prt 


- B : ainsi c menace une 
itenant déjà trois graines 
ndra rien. 
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c) Joue 
plus C 
quatre 
avec c. 


r F : ainsi c ne menace 
nais D qui, elle, contient 
raines et ne prendra rien 
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Ceci 
cases r 
conten 


oix dépendra bien sûr des 
narquées a . » et de leur 




jjyMJj-. contre une menace f^£ÏÏSSZÏÏ& 
multiple , , tour de jeu. La maison doit donc 

La case c menace de prendre la contenir un no mbre minimal de 
graine 0. La case e menace de ines . ce norn bre dépend d'une 

prendre la graine B. Nord ne peut » de |a case dans | aque lle on 
alors empêcher Sud de prendre £ onstrlJ j t d'autre part des cases 
deux graines au coup suivant que . . 
s'il possède dans une des cases »»"»»■ 

marquées « . » un nombre de maison. cons _ 

graines suffisant pour effectue, la w» P rédame deux 

dernière manœuvre déente (a|Ou- » dans |a der . 

ter des graines dans les cases de B™ ^ p|us ^ graines pour 
I adversaire). parcourir le camp de Sud, plus 

cinq graines pour parcourir le 
camp de Nord (on saute la case de 
départ D) plus au moins une 
graine pour atteindre à nouveau 
La défense contre une tenaille Sud en a plus éventuellement 
La case e menace de prendre la une, deux, trois, quatre ^ou cinq 
graine A. Si Nord joue cette case gra.nes pour atteindre b, c, d, e, f . 
A, Sud jouera f et prendra quand , 

même deux graines. Nord ne peut Attention : une ^ plus et Nord 
alors empêcher Sud de prendre retombe chez lui. Mais la récolte 
deux graines au coup suivant que peut être fructueuse, 
s'il possède. dans l'une des cases 
marquées « . » un nombre de 
graines suffisant pour effectuer la 
manœuvre précédente sans tou- 
tefois arriver jusqu'en B... Cher- 
chez pourquoi. 
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Nord joue F et gagne trois grai- 
L'attaaue ™ s en e, trois graines en d deux 

L'attaque la plus simple graines en c soit au total huit 
consiste à se trouver soi-même graines ! 
dans l'une des positions décrites 

précédemment alors que l'adver- Le tableau ci-dessus vous 
saire ne peut pas se défendre. Il donne, en fonction de la case 
apparu clairement, j'espère, que dans laquelle elle est construite 
les menaces simples seront celles le nombre de graines nécessaires 
qui-auront le moins de chances de pour atteindre la case visée. 
réussir - Maintenant à vous de jouer sur 

votre TRS-80. Mais peut-être 
connaissez-vous d'autres varian- 
tes. Alors, n'hésitez pas ! En- 
voyez-nous votre programme rea- 
lisé sur votre ordinateur 
individuel. 



Une attaque 

efficace : la construction 

d 'une maison 

Construire une maison, c'est 
accumuler suffisamment de grai- 
nes dans une case pour effectuer 
plus d'un tour de tablier, et ga- 



Jean-Louis Richaud 



des oracles chinois 
sur votre ZX-81 



Il ne se passe pas un jour sans que l'on ne soit 
amené à prendre des décisions plus ou moins 
importantes pour l'avenir. Parfois entre deux 
possibilités, le choix est difficile. Votre ZX-81 
peut alors vous secourir efficacement avec le pro- 
gramme que nous vous proposons et une pièce 
de monnaie (chinoise, du XI" siècle av. J.-C.). 



Xtous acitles cYVociS 
ôtoons beaucoup 
ddinesteuls! ! 



Les sages chinois du troisième 
millénaire avant J.-C. avaient 
créé, pour se tirer d'embarras, un 
système d'oracles appelé Livre 
des changements ou / Ching (pro- 
noncer I King). Les bases de ces 
oracles furent établies en 3322 
avant J.-C, par le sage Fu-Hsi. 

Au XI e siècle avant J.-C, pen- 
dant la dynastie des Yin, le prince 
Wen et son fils, le duc de Tan, ont 
commenté le livre des change- 
ments. Plus tard, Confucius lui- 
même a longuement étudié le I 
Ching pour en tirer des enseigne- 
ments profitables. 



78 



Dossier Proarammf 




Les sages chinois 

étaient- ils 

des info rmaticiens ? 

Le livre est composé de 
soixante-quatre signes consti- 
tuant la réponse à une question. 
Afin de résoudre tous les problè- 
mes, les réponses sont formulées 
de façon plus ou moins sybilline. 

Pour se servir du fameux livre, 
les Chinois utilisaient un rituel 
compliqué. Dans le but de simpli- 
fier, vous utiliserez le système du 
pile ou face. En effet, le I Ching „ 
est fondé sur le principe du sys- * 
tème binaire et fonctionne donc g 
comme un ordinateur, qui n'utilise - 
que le 1 ou le 0. Les Chinois se < 
contentaient d'un simple trait in- ) 
terrompu (--) pour le 1 et d'un trait : 
simple H pour le ; On peut : 
donc dire qu'au XXXIV e siècle ; 
avant J.-C, certains sages , 

L'Ordinateur Individuel -7Q 
Do5sierProorammesn°54blS dèc. 1983 /» 



Programme I Ching (début) 



1 REM I CHING 

S REM s********************** 
O REM AUTEURS UILLIfiM MRRI ET 
DENIS DUMR 

* REM *********^****-|Mr****#** 

5 PRINT TAS iai"fi «a*E3" 
e PRINT 

10 PRINT "POUR APPORTER UNE SC 
LUTION fl UOTRE PROBLEHE, FAIT 
ES PILE OU FACE 6 FOIS EN UOUS 
CONCENTRANT SUR- LH OUESTION ET I 
NSCRIUEZ UOSRESULTATS A CHAQUE T 
OUR.","PXLE =1 F 
RCE = 0" 

11 PAUSE 300 

13 POKE 16437,355 

13 CL5 

1S PRINT "PXLE=1";TAB 25; "FACE 
=0" 

35 LET R=10 

30 LET Cft="" 

35 FOR N=l TO S 

40 LET R*=INKEY* 

41 IF R(o"l" AND R*<>"0" THEN 
GOTO 40 

45 IF R*="l" TMEN PRINT AT A , 3 

~ J S IF R«="Q" THEN PRINT AT A , S 
3j "■■BBBI" 

5S LET Ct=C*+R* 

60 LET A=A-a 

65 IF A=6 THEN GOSUB 30 

70 NEXT N 

75 GOTO 105 

6 IF CK="1 1" THEN PRINT AT 1S 
n- "EHgBalBBB- C.EST L. EMBLEME D 
E LflMERE, DE LR FEMINITE RCCUEIL 
LRN-TE, DE LA DOUCEUR." 

85 IF G«="B 1" TMEN PRINT AT 13 

n ••nrwiîMnnn c.est l. emblème d 

E LflFILLE, DE LA JEUNESSE FEMINI 
NE, DE LA RESERUE." 

90 IF Ct="00 " THEN PRINT AT 1£ 
'hLJalJU^jj |||l| | C.EST L. EMBLEME 
PËRËTDfLfl UrrftLITE 5RGE, DE 

THEN PRINT «T 13 
_ C.EST L= EMBLEME 
LR JEUNESSE UIRILE, 



65 . 

LR FORGE." 
5 5 IF Ct= 

du filsTdl _ 
de l. impetuosite. 

100 RETURN 

105 PRINT 

lla IF Ç*-"H1111 



T 16,0; 



T 16,0; _ 

SURTOUTPAS. " 

130 IF Ct = "l lllBl" THEN PRINT P. 
T 16,0; "HS^^: ETES-UOUS BIEN SU 
R DE UOUS ?" 

^^ IF . £*^"2,^l J *g a jV^ l HF N P-RINT fi 

c-hëuée'. " ' " c H 

130 IF Ot="lllB ll" THEN PRINT A 
T 16.BJ "SSeSSBBÊS: RESPECT ENGEND 
RE RES- PECtT 7, 

135 IF Ca="ill fllB" THEN PRINT A 
T 1S .0; " WSBBESÈÈJi : EXHIBEZ UD5 OUf) 
LTTES. " 

140 IF Cta"lll(8 Bl" THEN PRINT A 
T 15,0; "SliSagBâ: LE GRAND RIDE L 
E PETIT." 

145 IF C*="111000 " THEN PRINT A 
T 15 ,0; " ajaaBEfiHgffl : MANQUE DE CO 
MMUNICR-TION . " 

150 IF Ç*= '_1 101 11" THEN PRINT B 
T 15,0; "BBSHSÉ^Hlr BRILLER SANS E 
BLOUIR. " 

155 IF 
T 16,0; " 
NÛENTR A -TION. - 

160 IF C$=" 110101" T HEN PRINT A 

t 4 c <*■ "[^^T^MEfifTiH^rii- "~"i T'r= d.u 

N TALENT'' 

155 IF C$ = " 110100" THEN PRINT fi 



: FERMETE ET CO 



T 16,0; . 
RREGTIQN 

170 IF 
T 16,0; "| 

LES BROUTILLES. 

175 IF Ct = "110010" THEN PRINT F 

HERCHe'd.UN ! * ACCORD." 

1S0 IF Ct="11000 1" THEN PRINT F 
T 16 , 0; " HJBHÎBgB : SRGACITE DU C 
ONSEIL. " 

ISS IF C«=" 1100 00" THEN PRINT F 
T 16, 0; " JBÛBEBiB : ' A DIGNITE AUAJ". 
T TOUT . " 

190 IF Ct=" 101111" T HEN PRINT F 
T 15,0; "BBSaHHÈSHHaE: SAGESSE DE 
L. EXPERIENCE. " 

195 IF Ct=" 101110" T HEN PRINT A 
T 1 F, . ; Wfa=Bi=ÙlM3Sm3 INUTILE DE 

FRIRE REPETER . " 

S00 IF Ct="101 101" THEN PRINT fi 
T 16 . : " MCTB ; I A SINCERITE EST 

PREFERABLE ." 

305 IF C$="101100 " THEN PRINT fi 

t iR.pt: ■■ « &jn3 1 iaaiM BH - siittf dans le 

S IDEES." 

310 IF Ct="101011 " THEN PRINT A 
T 16, j "BH^ffi: REFRENNEZ L..R 
NCIENNE FAÇON." 

315 IF C*="10101g." THEN PRINT P. 
T 15,9; " Bg^aBEM^Bh LES ENNUIS 
NE SONT PAS TERMINES." 

aa© if c$="iaiB0i " then print a 
t 16,0; "BE333ËÊEBSZI: pourquoi tant 

DE PAROLES ?" 

22S IF C$=" 101 000" THEN PRINT A 
T 16,3; ' 'BEBgSBÊB: SRUOIR S.RRRETE 
R EN CHEMINT^ 

330 IF Qg" 100-11 .1" THEN PRINT A 

t 16,0; "^ aaH a ffi tB. LE ShGE SOIS! 

T L. OCCASION." 

a35 if ct="ieeiia" t hen print a 

T 16,0; " HHgBHggBHB : EXAMINEZ 8 
IEN LES COSEQUENCES." 

340 IF C*=" 10010 1" THEN PRINT A 
T 16 , J "g^WaPWyH- ENTRAIDE ET CO 
HPP-EHEH -S ION. " 

345 IF C«="100180" THEN PRINT fl 

t i r r "n lilH TliTim rrrnmrnr pl 

USIEURS FOIS." 

350 IF C*="1B0011" T HEN PRINT R 
T 16,0; "^^aagHSBËŒ^: TOUTES VOIE 
S OUUER-TES." 

855 IF Ct="100 0±0" THEN PRINT R 
T 16,0; " EEHgBa-1 : L. OREILLE ET L. 
OEIL OU-UETS," 

350 IF Ct=" 100001" THEN PRINT A 
T 16,0; " BaBBHÉBH ^: INQIFFERENC 
ES AUX CANCANS . " 

365 IF C8=" 10000 0" THEN PRINT A 
T 16,0; "^ TBWftÉrM - SF MEFIER DU F 
LUS FORT" 

276 IF C$ = "01 H11" THEN PRINT F? 
T 16,0; "HaBHKa: OBSTACLE SANS IMP 
QRTANCE. " 

375 IF C»="011 110" THEN PRINT P* 
T 15,0; "iSliaa@Ha:LA PENSEE RCCROI 
T L.AC- TION." 

360 IF Ct ="011 101" THE N PRINT fil 
- - : "-- '"" "'"'" TROP D.E 



RUANCEZ SAN 



EN5ION. ' 

395 IF 
T 15,0; 
E LE SR 

300 IF C$="01100 1" THEN PRINT R 
T 15, 0; "SÊ&32BÊBttS: UN GRAND PROTE 
GE PAR DES PETITS." 

305 IF G* = "011000'' THEN PRINT P 

t ie > a , MBiai»M^aaa : L . INCORRECT ion 

MENE RUDESASTRE." 




Programme I Ching (suite et fin) 



310 IF Ç* 
T 15,0; "EZ_ 

RTTIRERL. ATTENTION 

315 IF Ct="aiBllB" THEN PRINT 
T 16,0; ■■ Iggpa^^Bggg fflf- FTF7-UGUS PAR 
FOIS AUXAPPARENCES. " 

330 IF C>= '010101 " TMEN PRINT F 
T 16,0; "I^MaBaPajB: TERMINER EST 
LE PLU5 MAL-AISE." 

335 IF C«='01010O " THEN PRINT A 
T 16, 0; " WMiEBiWre : CHAQUE CHOSE 

330 IF C»="01001 1" THEN PRINT A 
T 15,0; "EHSH3EHH1: INSUFFISANCE C 
U DEMI- SUCCES. " 

335 IF Ct="01 0010" TMEN PRINT fi 
T 1S ,0; " CBfefeJHirf - I F NECESSAIRE DOI 
T ETRE FAIT. " 

3*0 if c<="âiaaai " then print r 

T 1S,0, "S33SS55BÛBHB: AGIR D.RBORE-, 

PENSER ENSUITE." 

345 IF C* = " 010 00 .0,'.'., THEN PRINT F 
T Ifi ■ : " »3UTW.lBf:J=THJlBl?B : NF MELANC 
EZ PR5 L. IMMISCIBLE, " 

350 IF Ct="geil ll" TMEN PRINT F 
T 15,0; "SB33ÏÏËS&3&: SUCCES PEUT ETR 
E PROUI-SOIRE. " 

355 IF C*s"g01-llg" T HEN PRIf-fT A 

t i6,0; "Bagaa^ H giHg a l. équilibre 

DOIT ETRE RETABLI." 

360 IF C, * = '- g01 10 _l" TMEN PRINT A 
T 16,0; "œBSSHflSSI: FREIN DESSER 

365 IF C*="OalJ 00" THEN PRINT fi 

T 16,0; - '@DBaaaa§: LE .SAGE CROIT C 
ELUI OUICROIT." 

370 IF C»= "001011 " THEN PRINT F 

T 15,0; "B5ÉH3SEH33: UERTU de l,Aë 

STENTION" 
375 IF C*="001010" THEN PRINT F 



T 15, _ 
AGE SE 

360 IF 
T 16,0; 
PLAISIR 

385 IF 
T 16,0; 
E MORD 

330 IF 
T 16,0; 
EBUT DE 

335 IF 
T 16. S j 
RUT RÉ 5 . 

40© IF 

T 15,0; 

R CONDUIRE. 

405 IF " 
T 16,0; 



TROMPE." LE MRUURIS PRE = 

001001" THEN PRINT F 

NE PAS NEGLIGER LE 

' 0010 00" THEN PRINT F 

. B3BS& MAIS LE TIGRE K 

PEUT ETRE PAS," 
C*="B 00111" THEN PRINT F 
■EÈHS-. FIN DE PETITESSE, C> 
GRANDEUR . " 

" "000110" TH 



NE 



THEN PRINT 

H: LE NUAGE K 

TRE PAS." 
V" THEN PRINT F 
TRIOMPHE DE LF 



THEN PRINT F 

. TENEZ-VOUS BI 
_ _'N HA IN . " 
00000 1 " TMEN PRINT F 
= REPANDEZ, N.HMA5S 



,_., "RUEZ-VOUS UN 
c AUTRE QUESTION ?" 
435 INPUT Rt 

44© IF R|="QUI" THEN GOTO 13 
445 CLS 

450 PRINT AT ia,10;"A BIENTOT" 
460 STOP 
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chinois parlaient comme nos cer- 
veaux électroniques modernes ! 

Bien que fastidieux à entrer par 
le clavier du ZX-81 du fait de sa 
longueur, la structure de ce pro- 
gramme reste des plus simples. 

Le traditionnel 
pile ou face 
sera déterminant 

j Les variables de la liste sont 
appelées suivant le code tapé par 
l'utilisateur. Elles donnent accès à 
l'impression d'un petit texte sur 
l'écran. Le calcul proprement dit 
se résume aux lignes 30 à 75, qui 
permettent de distinguer les don- 
nées et d'afficher le symbole cor- 
respondant. 

Pour utiliser ce programme, 
munissez-vous avant tout d'une 
pièce de monnaie. 

Après avoir tapé RUN, le ZX-8 1 
vous explique la règle du jeu. On 
lance la pièce ; si elle tombe sur 
pile on entre 1, si elle tombe sur 
face on entre 0. Cette opération 
est répétée cinq fois de suite. 

Grâce à la ligne 41, on ne peut 
qu'entrer 1 ou sur le clavier ; 



toute action sur une autre touche 
restera sans effet, afin d'éviter les 
erreurs. 

Sur l'écran, vous verrez s'affi- 
cher après chaque donnée soit un 
trait plein, soit un trait inter- 
rompu. 

Après le deuxième coup, le ZX- 
81 donne la caractéristique géné- 
rale de votre question ; après le 
sixième coup, il vous donne sa 
réponse définitive. 

Pour ceux qui possèdent l'im- 
primante et qui désireraient l'utili- 
ser, la ligne suivante peut être 
ajoutée: 428 COPY. 

Il faut, avant toute chose, inter- 
roger l'oracle et poser des ques- 




tions uniquement sur les événe- 
ments contrôlables (hésitation sur 
le choix d'un métier, d'un achat, 
d'un spectacle, etc.). 

Le I Ching ne vous fera malheu- 
reusement pas gagner au foto ou 
au tiercé. 

Concentrez-vous sur la ques- 
tion qui vous préoccupe et lancez 
la pièce. 

Si vous faites pile, tapez 1 ; si 
vous faites face, tapez et ce 
jusqu'à ce que vous ayez lancé la 
pièce dix fois. 

Un programme 

vieux de 

5 300 ans ! 

Les réponses fournies ne sont 
pas toujours très claires mais 
voilà bien le propre des oracles. La 
réponse à votre question se 
trouve en vous, le I Ching vous 
aidera seulement à la découvrir ; 
c'est, en quelque sorte, un pro- 
gramme d'aide à la décision vieux 
de 5 300 ans... 

Denis Duhr 
William Mari 



Dossier Programmes n" s* 



quand 
a rendez- vous 



'Atom 
avec la Lune 



Le programme que nous vous 
proposons, entièrement graphi- 
que, vous transporte sur la Lune. 
Un module lunaire parcourt le 
haut de l'écran. Il est animé d'une 
vitesse horizontale aléatoire, et 
est soumis à la gravité lunaire. 

Le joueur dispose de trois tou- 
ches REPT-SHIFT-CONTROL. Les 
deux premières lui permettent 
d'allumer des rétrofusées pour se 
propulser respectivement à gau- 
che et à droite. La troisième tou- 
che met en marche le réacteur 
principal : le module lunaire dé- 
colle alors vers les espaces inters- 
tellaires. 

Bien sûr, les lois de l'inertie 
sont respectées, autrement dit 
l'accélération du module est 
contrôlée ; par exemple, si on ap- 
puie sur SHIFT le module accélé- 
rera vers la gauche et si on lâche 
SHIFT, il gardera la vitesse ac- 
quise. 

Pour l'arrêter, il faudra appuyer 
sur REPT, ce qui le fera décélérer. 
Voilà ! Petit détail amusant : 
une fois devenu expert en manie- 
ment du module, essayez, avec la 
flamme des réacteurs de faire des 
trous dans le sol ! 

Ce programme est articulé sui- 
vant cinq étapes (tes trois derniè- 
res étant réservées au programme 
secondaire), décrites en lignes 
« Rem dans le programme. 
t II ne vous reste qu'à essayer ce 
? programme et à modifier la tem- 
~ porisation {ligne 460) suivant qu'il 
g vous paraît trop simple ou trop 
| compliqué. A bientôt peut-être, 
£ dans la Lune ! 

1 Francis Reignat 
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Alunir ou atterrir ? Question d'atmosphère. 

retrouver vos esprits, à faire le 

concentrer sur un seul objectif : mener à bien 

de planer, car après tout, s'écraser 

ça fait tout de 



Ce programme sur Atom doit vous aider à 

vide autour de vous et à vous 

votre mission. Mais attention, n'essayez pas 

sur la Lune (ou sur la Terre} 

même très mal... 



Programme d'alunissage (début) 



3Q P." REPT' RETR0-FU3EE" - 

îi;-: v.=3D.iH=F;:.M;i.0:U---0iy=3 

130 REM calcul du de-cor 
13'0 CLEHR2 
j49 F.T==eiT01-5@.:V,-.:T::^i.W.T 



! REM :ki 
i REM .le- 



IF ?#B002*--tt4( 
IF ?#8901&#B( 

if ?mmi=m\ 



ISO F.T=3TCi5.i|.'!HIT;t 



Dessin du module 


3 +z 


























... rr 

y-* 

y. 5 
y-4 

xi 




- 


xtl 


u 



Programme d'alunissage (fin) 






-2 Xïï' y-Z )ÛR< V-;i ;■-. VVC J-M-2 ■■■ Z.'r. 






54 


i RËmVi 
- REM a. 

"■fcilûf 

i ,■■; Il ■; 

RETUr 
■ REM .-.. 

3 IF V> 

'< "ftE:Û" 

3 P~. " V 

■..■ i.ER, 


-4*ci.iïïRr : :iî;?.œ::j!ô' ,J ' ' ^ppes CEt'rluNISS 

-4 F. "VOUS"' "RESTE PLUS !!LI ; fl MARCHER. 

rose .: novE ;-: , v y.; t > , dprw ' f . M45+s; ;■■ , ■' r . r . 
tre m'odule~e:::t ïViÙV -C}":sJ'' :: : - ..:■• s; 

JS REND LES HONNEURS..."" 

-; CLEFlR@.= P.S3@' ■' ■' " S******* 
-4 P." * BRHVO *"■■ 

TÛ3s"m E "■'--■-■ 
-.'■■'■ VéWsZ-.iiH.- 

-:r vctri rr;u-ELn vr^r e;t" : 

0U3 FOKTIîn: '--■ "SECOURS. .. "iF.Z=EiTO50;i> 
0U3 riTTENDRE? DONC :..;■ MO:?T ,:J,: DRNS DP 


RGE DE". 

BfiilT, Il 


-IEE " 



Description du programme 



Ligne 1 10 (initialisation Y) : ordonnée 
' 'a position du module ; (initial 

y) : vitesse aléatoire horizontale 
du module ; (initialisation U) : agi 

ement réalisé ou pas ; (initialisa- 
tion V) : vitesse verticale nulle. 
Ligne 140 : initialisation y (x), : 
[0, 1 30], ordonnée du sol lunaire. 
Ligne 160 : y (o) ordonnée du sol 
d'abscisse ou départ aléatoire 
h 20. 

fanes 1 70 à 200 : calcul des autres 
ordonnées par rapport aux premières 
pour qu'il y ait continuité (écart + 2). 
Lignes 220 à 270: idem. 
Ligne 290 : traçage sur l'écran du sol 
lunaire (x = 64 abscisse de départ du 
module). 

Lignes 300-3 10-320 : « fignolage ». 
Ligne 350 : extinction de l'ancien™ 
position du module. 
Lignes 370 à 390 : lecture des ton 
ches. 

Ligne 410 : calcul de la nouvelle 
position. 

Lignes 420-430 : contrôle de se 
de l'écran. 
Ligne 460 : temporisation (si le pro- 
gramme est trop rapide on s'écrase). 
Lignes 480-490 : on vérifie si le mo- 
dule touche le sol, auquel cas on 

Ligne 510 : si le module n'est pas 
assez près de la base on agrandit 
l'image f V ). 

Ligne 520 : retour en 350. 
Lignes 550-560-570 : si le module a 
aluni en dehors de la base, des 
commentaires s'imposent. 
Lignes 580 à 640 : la vitesse est 
supérieure à 4 ; on dessine l'explo- 
sion et on fait des commentaires. 
Lignes 660 à 700 : dessin du module. 
Lignes 720 à 830 : commentai 
explosion. 

Ligne 850 : agrandissement 
l'image en passant à une définition 
inférieure de l'écran. 
Ligne 870 : attend environ 5 s puis 
renvoie au début du programme. 
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-abysses- 



panique 
au fond des mers 



Vous voici aux commandes d'un sous-marin pos- 
sédant un tube lance-torpilles. Votre but ? 
Abattre le plus d'adversaires possibles. Rassu- 
rez-vous : à défaut de vous transporter dans un 
espace intergalactique, vous traverserez les ma- 
récages de la haute résolution du Vic-20. 







Tapi au fond de la mer, vous 
êtes en possession d'une arme 
vous permettant de détruire trois 
types d'ennemis : un hélicoptère 
(survolant la mer, bien sûr !) qui 
vous rapporte 100 points, deux 
bateaux, pour lesquels vous béné- 
ficierez de 70 points, un sous- 
marin grâce auquel vous gagnerez 
200 points. 

A chaque passage le sous- 
marin dépose une mine, dans le 
seul but de vous faire perdre 
15 points, mais vous obtenez 
alors une torpille de plus {vous 
disposez initialement de soixante- 
six torpilles). Si vous touchez un 
sous-marin, toutes les mines déjà 
présentes à l'écran disparaîtront. 

Pour éviter le tir en rafales, un 
test vérifie que vous n'avez pas 
tiré trois coups successifs du 
même endroit, auquel cas le 
canon deviendrait inactif (vous 
devrez alors le déplacer pour pou- 
voir l'utiliser normalement). 

La mise à feu de la dernière 
torpille provoque l'affichage de 
votre score définitif, ainsi que la 
fin du jeu si vous n'avez pu dépas- 
ser les 1500 points nécessaires à 
une nouvelle partie. 



Un programme 
avec ou sans 
poignée de jeu 

Le programme, tel qu'il est 
écrit, nécessite l'emploi d'un 
manche à balai (CBM ou Atari), 
mais le tableau 1 (page 86), vous 
permettra d'utiliser le clavier sans 
pour autant altérer l'intérêt du jeu. 



Programme avec poignée de jeu 



Programme sans poignée de jeu 



Dossier Programmes rv>54 bis déc. 1( 



D'autre part, afin de ne pas 
dépasser la capacité de mémoire 
vive du système (3 583 octets 
libres), il n'y a pas de REM coû- 
teux (mais vous pouvez consulter 
le tableau 1 concernant la des- 
cription du programme). 

Peut-être vous étonnerez-vous 
de la taille imposante de ce pro- 
gramme pour un tel jeu. Il aurait 
en effet été plus économique d in- 
sérer une routine d'affichage et de 
déplacement des caractères dans 
une boucle FOR NEXT et de s'en 
servir successivement pour cha- 
que adversaire (quatre ennemis, 
le canon, la rafale). Mais cette 
méthode présente le grand désa- 
vantage de nécessiter une batte- 
rie impressionnante de tests du 
type IF AND THEN ou IF OR 
THEN, ce qui ralentit l'exécution ; 
d'où l'obligation d'écrire une rou- 
tine propre à chaque objet. 

Si vous désirez modifier le gra- 
phisme, vous pouvez recalculer 
les arguments des données 
(lignes 40 à 79), suivant les indi- 
cations de l'encadré 2. 

Le processeur 6502 
« comprend » un caractère comme 
une suite de huits nombres X 
(o<X<255), chaque nombre X 
étant la représentation décimale 
d'un octet. Voici donc la procé- 
dure à suivre pour obtenir un nou- 
veau caractère : 

. tracez sur une feuille une ma- 
trice de 8X8 cases ; 
. exécutez le dessin de votre 
choix dans cette matrice, en sa- 
chant qu'une case ne peut être 
que vide ou pleine (0 ou 1 ) ; 
. pour chaque ligne, faites la 
somme des huits cases qui la 
composent : une case i prend la 
valeur si cette case est vide ou 
la valeur 2' si cette case est 
pleine (0^i^7) ; la ligne est la 
ligne du haut, la colonne 2° est la 
colonne la plus à droite ; 



Tableau 1 : quelques petits conseils pour modifier le 

programme, de façon à pouvoir utiliser le clavier pour 

contrôler les déplacements et le tir. 



105 
110 
122 
130 



Commentaires 



effacer : U = 37 1 54:V=37 1 37:W=37 1 52 uniquement 
effacer complètement et remplacer par la ligne ci-dessous 
écrire P=PEEK(197):IFP=31 THEN Z=Z-1:GST01 10 

écrire IF P = 23 THEN Z=Z+1 

effacer seulement Z=Z+X+Y: 

effacer uniquement T=PEEK(V)AND32 

remplacerT<>32 par P=8 



Touches à utiliser 



Touche 



CRSR 

i 

«-CRSR- 



Commentaire 



déplacement à gauche 
déplacement à droite 



31 
23 



— paves- 



autocritique aléatoire 

votre ordinateur avoue que ses dés sont pipés, mais vous 
propose en échange un programme d'histogramme 



Bien entendu, pour changer de touches, il vous suffira de remplacer les codes 
31, 23 et 8 des lignes 100, 105 et 130 par ceux de votre choix. 



Tableau 2 : calcul des arguments des DATA permettant 
de modifier les graphismes. 



K, L;X=11,X=12 



Commentaires 



arrière de l'hélicoptère 
arrière du bateau n° 1 
arrière du sous-marin 
avant de l'hélicoptère 
avant du bateau n D 1 
avant du sous-marin 
canon, rafale 
explosion, vague 

arrière et avant du bateau n° 2 



Dans de nombreuses applications, il est intéres- 
sant de connaître la répartition d une série de 
valeurs numériques : analyse de sondages, résul- 
tats expérimentaux, etc. Pour cela, on peut visua- 
liser l'ensemble de ces valeurs sur un dessin à 
deux dimensions, en tenant compte de la fré- 
quence d'occurence de chacune d elles. La figure 
ainsi obtenue s'appelle un histogramme (du grec 
Histos, «texture, trame»). 



. reportez les huit arguments 
dans le DATA concerné, par 
exemple : 

2 7 2 6 2 5 2" 2 3 2 1 2 1 2° 

octet 

La valeur de cette ligne sera 
donc : Li = + 64 + 32 + + 
+ 4 + 2 + 0= 102 



A vous de jouer maintenant. Si 
vous disposez d'une extension 
mémoire, vous pouvez même 
ajouter diverses fioritures comme 
un graphisme plus réaliste ou des 
adversaires plus coriaces (poul- 
pes géants ou cétacés féroces). 



Son aspect est un peu celui de nos 
cités modernes. On le retrouve dans 
la plupart des ouvrages techniques 
contemporains. Si la collecte des 
valeurs peut être réalisée de ma- 
nières très diverses, leur exploita- 
tion (tracé de l'histogramme) est un 
travail facile à effectuer avec un or- 
dinateur individuel. Dans ce do- 
maine encore, une telle machine, 
posée sur le bureau de l'homme 
d'affaires, de l'ingénieur ou de l'é- 
tudiant, peut rendre de grands ser- 
vices. Encore faut-il l'avoir correc- 
tement programmée. 
Le programme que nous vous pre 



sentons vous permettra de réaliser 
des histogrammes de manière as- 
sez générale. 

Il est écrit ici pour un TRS-80, 
mais peut être transformé pour 
fonctionner sur d'autres ordina- 
teurs individuels. Notre programme 
est écrit en BASIC. Les données à 
analyser peuvent figurer dans le 
corps du programme sous forme de 
DATA ou être calculées par ordina- 
teur. 

Pour chaque valeur, il s'agit de 
visualiser sur l'écran un «payé» 
dont la surface corresponde à la fré- 



quence de rencontre de cette 
valeur. Pour cela, on rencontre deux 
principales difficultés. 

La première réside dans le fait 
que l'intervalle des valeurs peut être 
quelconque. 11 importe que cet inter- 
valle apparaisse en entier sur l'é- 
cran. Il faut donc, lors de la prise en 
compte des valeurs, repérer la plus 
petite et la plus grande et fixer aussi 
l'échelle de l'histogramme. 

Nous ferons figurer l'intervalle en 
abscisse en le divisant arbitraire- 
ment en un certain nombre de par- 
ties (dix par exemple). 

La seconde tient au nombre quel- 
conque de valeurs. Le nombre est 
visualisé sur l'axe des Y. 

Pour résoudre le problème, notre 
programme peut graduer de deux 
manières l'axe des ordonnées. 
Lorsque chaque pavé contient au 
plus 40 valeurs, la graduation va de 
à 40. Quand cette limite est dé- 
passée, l'axe des ordonnées est 
gradué suivant une échelle logarith- 
mique : au lieu de représenter des 
longueurs proportionnelles à une 
valeur, on représente des longueurs 




ier Programmes n° 54 bis déc. 19B3 i 



proportionnelles à son logarithme. 
(*) 

Dans ce cas l'axe des y comporte 
cinq divisions qui correspondent à 
1, 10, 100, 1 000, 10000 valeurs. 
Après le tracé des axes et de leurs 
graduations, nous construirons 
l'histogramme. 

Pour chaque valeur, nous recher- 
cherons sa position dans un des 
créneaux déterminés précédem- 
ment et augmenterons d'une unité 
la hauteur du «pavé» correspon- 
dant. Avant l'affichage, la hauteur 
de chaque pavé sera éventuelle- 
ment corrigée dans le cas de l'em- 
ploi de l'échelle logarithmique. 

Exemple d'utilisation 

Une utilisation intéressante est la 
suivante. Notre ordinateur indivi- 
duel pourvu d'une fonction RND (0) 
qui permet de tirer des nombres au 
hasard compris entre 0,000001 et : 
0.,9999'99 inclus. Nous souhaite- 
rions vérifier dans quelle mesure ce 
«hasard» correspond bien au vrai 
hasard. 

Dans ce but nous allons faire 
fonctionner la loterie BASIC correc- 
tion écran un grand nombre de fois 
(1 000 par exemple). A chaque ti- 
rage, notre programme recher- 
chera dans quelle région de l'inter- 
valle 0-1 se situe le nombre tiré. 
Une fois les tirages terminés, il en 
tracera l'histogramme. L'examen 
de celui-ci nous permettra peut-être 
de déceler une » préférence » du gé- 
nérateur de nombres aléatoires, 
«auquel cas ces nombres ne sont 
peut-être pas tout à fait aléatoires ». 

Pour cette application, nous de- 
vrons modifier quelque peu notre 
programme. La série des valeurs est 
obtenue par la fonction RND (0) au 
lieu d'être lue en DATA par des 
READ. 

Structure du programme 

. Lignes 40-45: réservation des 
tableaux nécessaires au pro- 
gramme : tableau contenant les 
valeurs à analyser et tableau conte- 
nant le nombre de valeurs de cha- 
cun des dix créneaux. 

. Ligne 50: appel du sous-pro- 
gramme d'acquisition des valeurs 
Le sous-programme peut, comme 
ici, lire des valeurs en DATA ou bien 
les calculer (par exemple à l'aide de 
la fonction RND). 



Liste du programme 



45 DIM Z-tlO) :RE.I 
50 GOSOB 1000 

65 Z(10)«l:P8INT.3I 
70 FOR S-l ro SU 

30 FO» J-l to : 



Z(J)=i(J>+l!j-10 



155 


CLS 


IMI 


IF EL-0 THEN 


1*>5 


FOR J = 64 TO 


1/0 


PKINHJ.i; 


110 


HEXT J 




FOR J = l TO 4 


710 


SETU3.J) 


■/ ■> (1 


SËT(12.J) 


?in 


NEXT J 


7 4»! 


FOR ï-1 TO 


75(1 


SET(14,Ï> 




[JEX.T ï 




FOR X-14 TO 


7 811 


SET(X,41) 


7 MO 


NEXT X 


1011 


E«9-03 


310 


FOR J-l TO 1 



K-K-10 EiSË 



X=14 TO 114 STEf 



■ 10 FOR J-l 



"SOMBRE OE ' 



1050 REAC 
1060 MI-V 
1070 FOR 



(100 1 



ÎXT fi 



(•} Avec une échelle normale, représenter 
10. 100. 1 000. se fera par exemple avec des 
longueurs 10. 100. 1 000. Avec une échelle 
logarithmique, ce serait par exemple 20. 30. 
40. On économise donc de la place. 
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un 

1500 RM — 

3000 REM REDUCTION FOUR ECtlELLE LOG 

3005 Z9=LOG(10) :REM COîfVERSIO 

3010 FOR K = l TO 10 1REH EH LOG DE' 

3020 IF ZU) <> THEN Z( K) = IHT( LOG ( Z( K ) )*1 0/ Z9 ) 

3030 NEXT K 

3040 RETURS 

5000 REM 

5010 REM VALEURS EU DATA 

5070 DATA 10,11 ,5,6,7,11,23,56,57,59,14.5,35,39,3? ,86 

5030 DATA 45, 45, 89, 90. 95, 95, 95, 95, 43, 73, 78, 50,99, 22, 2 

5040 DATA 0,0.5,2,2,2,2,2,2,2,100,90 

5050 DATA 45, 45, 45, 45, 45, 45, 46, 47, 37, 48,48, 4B, 49 



5,76 



modifications à apporter à notre programme 
pour test du générateur de nombres aléatoires 



7 5 FÛK 8=1 TO . 



TIRAGE AU SORT 



Z < (-;itj*i'() 



Ligne60: calcul de l'intervalle 
entre deux divisions de l'axe des X. 
I . i/gne 65 : cette ligne est néces- 
saire pour tenir compte de la borne 
supérieure de l'intervalle des 
valeurs : la valeur V(N) correspon- 
dant à MA = Ml + 1 0*IN n'est en ef- 
fet pas prise en compte à la ligne 
90, et la ligne 65 y remédie. 

. Ligne 70-120: pour chaque 
valeur, recherche de son emplace- 
ment dans un des dix créneaux. 

, Lignes 125-140: recherche 
d'un créneau contenant plus de 40 
valeurs. Si l'on en trouve un, on 
passe en échelle logarithmique sur 
l'axe des y (indicateur EL). La réduc- 
tion est effectuée par l'appel du 



lignes 

. Ligne 150-380: tracé des axes 
x et y, de leurs graduations et des 
valeurs correspondantes. Sur l'axe 
des y, deux types de graduations 
sont possibles (arithmétique et lo- 
garithmique). 

. Lignes 400-470: pour chaque 
créneau, tracé d'un pavé dont la 
hauteur correspond au nombre de 
valeurs contenues dans ce créneau. 
Cette hauteur peut être éventuelle- 
ment corrigée pour tenir compte de 
l'échelle logarithmique. 

. Lignes 1000-1110: acquisi- 
tion des valeurs. Les valeurs sont ici 
données en DAT. On détermine les 



bornes inférieure et supérieure de 
l'intervalle des valeurs. 

. Lignes 3000-3040: réduction 
de la hauteur de chaque pavé dans 
le cas de l'utilisation d'une échelle 
logarithmique. 

Lignes 5 010-5 050: valeurs en 
DATA. 

Notre programme utilise cer- 
taines particularités du BASIC TRS- 
80 PRINT @ 100 écrit à partir du 
100 e caractère de l'écran, qui en 
comporte 16 X 64 = 1 024. SET 
(X,Y) allume sur l'écran un pavé si- 
tué à la ligne Y de la colonne X ; X 
est compris entre et 127, et Y en- 
tre et 47. Ces instructions PRINT 
@ et SET devront être remplacées 
par des PRINT simples ou des POKE 
judicieux pour que le programme 
fonctionne sur d'autres machines. 
Nous reproduisons deux histo- 
grammes obtenus successivement 
et portant chacun sur 10 000 ti- 
rages. Seule la comparaison entre 
eux d'un grand nombre d'histo- 
grammes pourrait nous renseigner 
valablement sur le bon fonctionne- 
ment de notre loterie. 




y, 

T^tSiHKHWU. I 
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-graphiques- 



traCé de courbes 

arabesques et entrelacs 



Votre ordinateur ou votre calculatrice scientifi- 
que peut évaluer de très nombreuses fonctions 
mathématiques. Si elles ne sont pas toutes 
préprogrammées, il ne tient qu'à vous de les 
obtenir au moyen d'un petit sous-programme. 
Les ordinateurs excellent dans l'art de traiter 
les nombres, mais ils ont aussi des fonctions 
graphiques. Autant dire qu'ils sont tout indi- 
qués pour tracer automatiquement les courbes 
représentant les fonctions. On peut, à volonté, 
leur demander de faire serpenter celle d'un 
sinus ou de visualiser la croissance exponen- 
tielle d'une population. Ne nous en privons pas. 



Si vous avez accès à un TRS 80 
modèle 1, 16 Ko, il vous suffit 
d'introduire ce programme BASIC 
pour obtenir la représentation gra- 
phique de toute fonction f(x). Bien 
entendu, nous vous faisons 
confiance pour adapter ce pro- 
gramme à votre ordinateur favori. 

Sans crayon 
sans gomme 
et... sans papier 

Vous vous souvenez sans doute 
d'énoncés du genre « soit la droite 
' d'équation y = x-4 » ou « soit la 
, parabole y = -x 2 + 5 ». Si vous 
; avez une grande habitude des 
; fonctions, cela vous suffit, on peut 
i même dire que vous « voyez » la 
1 droite ou la courbe. Il en va de 
\ même pour le solfège : les virtuo- 
i ses de la lecture musicale lisent la 
' partition et l'entendent ! Mais ceux 

90 i 



qui ne sont pas rompus à ce type 
d'exercices n'y entendent rien... 

Si vous êtes comme eux, vous 
ne savez pas, « à vue de nez », de 
quel côté la parabole est orientée, 
vous ne savez pas si la droite est 
croissante ou décroissante. Pour 
en avoir une idée, vous devez cal- 
culer quelques points de chaque 
fonction et les représenter sur une 
feuille de papier. 

Pourquoi votre ordinateur ne le 
ferait-il pas sur son écran ? Il vous 



suffira de définir les deux fonctions 
conformément au cadre du pro- 
gramme et de taper RUN. 

L'ordinateur vous demandera 
quelques précisions, telles que les 
valeurs extrêmes de x et de f(x) à 
représenter. La raison en est sim- 
ple : les dimensions de l'écran, 
comme celles de votre feuille de 
papier, sont finies. Autant indiquer 
tout de suite la portion de courbe 
qui vous intéresse. Il est en effet 
inutile de représenter la fonction 
pour x = 100 si vous vous intéres- 
sez seulement aux valeurs proches 
de zéro. Pour les deux fonctions 
que nous avons retenues, explorez 
par exemple le domaine allant de 
- 1 à + 1 (tant pour x que pour f 

[<n- 

Vous verrez d'abord apparaître 
une croix appelée système d'axes 
de coordonnées qui sert de repère. 
La droite qui apparaît ensuite re- 
présente la première fonction {y = 
x - 4) et vous verrez ensuite se 
dessiner une parabole définie par 
y = x' + 5. 

Le domaine de variation est indi- 
qué dans le coin inférieur gauche. 
La variable x est représentée sur 
l'axe horizontal et y (= f [ x ] ) sur 
l'axe vertical. La graduation est la 



Principales variables utilisées 


N 




Nombre de fonctions 


x1,x2,y 


■ \2 


Domaine de variation de x et y ( = f [ x ] ) 






Graduation des axes x et y 






Coordonnées de 1 intersection des axes 


Q$ 




Contient la réponse à la question « arrêt ou non après 
chaque fonction ? » 


K,R 




Sont des compteurs 




distance entre deux points noirs 
sur l'un ou l'autre des axes de 
coordonnées. Ici, le point d'inter- 
section des deux axes correspond 
a zéro. 

SI vous désirez une autre gra- 
duation, rien de plus facile : vous 
pouvez agrandir une portion de 
l'écran afin de mieux voir l'une des 
intersections, par exemple celle si- 
tuée entre et 4 pour x et et -4 
pour f(x). Notez bien que les va- 
leurs positives sont toujours repré- 
sentées à droite de l'axe des or- 
données et au-dessus de celui des 
abscisses. 



résoudre graphiquement un sys- Naturellement, une fonction peut 
tème d'équations de la façon la être définie par morceaux : 



100:IFx<-5THENF{1) = - 2 : GOTO 150 
1 10 : IF x = - 5 THEN F< 1 ) = 2 : GOTO 1 50 
120:IFx>-5ANDx<2THENF(1} = x 
ELSEF(1) = 2 



Le graphique 
peut devenir 
esthétique 



Il est normal, après cet effet de 
« zoom » que vous ne reconnais- 
siez plus la parabole : vous n'en 
avez qu'un détail. 

En prenant une graduation de 
plus en plus fine, vous connaîtrez 
la position de l'intersection avec 
une précision de plus en plus 
grande. En fait, vous allez pouvoir 



plus commode possible. De la 
même façon, vous déterminerez 
graphiquement le zéro d'une fonc- 
tion, c'est-à-dire la valeur de la 
variable x pour laquelle la fonction 
est égale à zéro. 

Il arrive que la fonction ne soit 
pas toujours définie. Ainsi SQR (x) 
n'est définie que pour les valeurs 
positives de x. Si vous demandez 
ia représentation graphique de x 
allant de -4 à +4, l'axe horizontal 
sera effacé jusqu'à ce que la fonc- 
tion soit définie. Vous compren- 
drez aisément en faisant quelques 
essais. 

Pour vous faire la main, regar- 
dez donc ABS (x), INT (x), SIN 
(x)/x, SIN (3 * x) • EXP {-x/5), 
SQR (x * x * x + 3* x * x!, etc. 



La représentation graphique 
s'inscrit dans un carré de 80 * 40 
correspondant aux positions hori- 
zontales 14 à 1 13 et aux positions 
verticales à 39. 

Les différentes fonctions à re- 
présenter sont appelées aux sous- 
programrnes 2100, 2200, 2300, 
2400 et 2500. 

Vous pouvez maintenant résou- 
dre graphiquement des systèmes 
de fonctions et il n'est pas impos- 
sible que le tracé des courbes ani- 
mées vous conduise à en recher- 
cher quelques-unes pour des 
raisons d'ordre esthétique. 



Jean-Paul Zanter 




(2) DAO DESSIN* 
* marque déposé 
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Pourquoi ne pas créer 

dans vos colonnes 

une nouvelle rubrique 

« algorithmes de tri » ? 

En effet, d'une part 

de nombreuses 

applications 

informatiques 

nécessitent un tri, 

et d'autre part 

je pense qu'il est 

très difficile 

de trouver 

des algorithmes de tri 

efficaces pour un P.S.I. 

à langage interprété 

et disposant 

généralement 

de peu de mémoire ; 

si on n'y prend garde, 

on arrive facilement 

à des temps 

d'exécution de quinze 

minutes pour cent 

articles à trier, 

ce qui est 

évidemment excessif. 

Pour faire un début, 

je vous propose 

ci-joint 

le meilleur algorithme 

de tri que 

j'aie trouvé à ce jour. 

Temps d'exécution 

de l'ordre de une minute 

pour trier 100 chaînes 

de 50 caractères 

alphanumériques 

chacune 

sur un PET 2001 de 

Commodore. 

Je souhaite que 

votre revue suscite 

une confrontation 

d'idées qui permettrait 

certainement 

d'en trouver de 

meilleurs, sans qu'il 

soit nécessaire 

de descendre au niveau 

du langage machine. 



mettez 
de Tordre 

dans vos données 

grâce à ce programme 
de tri par insertion ( *> 



w /e tri par insertion est ceL 
que bit un joueur de cartes 
classant 
son /eu. 




Ce programme présente l'avan- 
tage de ne pas trier la table des don- 
nées de base TS, ma is de ne travail- 
ler que sur la table de « pointeurs » 
A% (on appelle «pointeur» une 
variable dont la valeur désigne, 
«pointe vers *, un élément). Ceci 
permet une plus grande rapidité 
d'exécution dans des cas bien pré- 
cis : utilisé comme sous-routine, il 
permet de trier des chaînes de ca- 
ractères relativement longues (plus 
de 5 caractères), mais il est préféra- 
ble d'utiliser une méthode directe 
(trier directement dans A$) si l'on 
veut traiter des chaînes de carac- 



tères courtes ou des nombres (*). 
C'est d'ailleurs la version «directe », 
sans pointeur, qui se trouve présen- 
tée dans la fiche pratique n a 1 1 . 



(•| En fait il semblerait que pour au moins ] 
tous 'es BASIC Microsoft, il soit préférable g 
d'utiliser cette méthode dès qu'il s'agit de ; 
chaînes de caractères : ces BASIC <• tassent » f 
les chaînes de caractères, ce qui fait que .! 
chaque opération de chaîne entraîne systé- i 
manquement un - tassement ». Travailler [ 
avec ce système de pointeurs minimise les ; 
transferts de chaînes, et par conséquent le ■■ 
temps passé à tasser. 

BS ' 
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Liste du programme en BASIC 

10 REM TRI D'UNE TABLE EN MEMOIRE CENTRALE 

15 REM PAR INSERTION DICHOTOMIQUE 

20 REM AUTEUR : PIERRE KELLER 

30 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 

40 GOSUB 100:REM INITIALISATIONS 

50 GOSUB 200:REM IMPRESSION INITIALE 

60 PR1NT"QUAND VOUS VOULEZ POUR LE TRI": 

GO5UB9100:PRINT"OK" 
70 GOSUB 400:REM TRI 

80 PRINT"VOILA... LA LISTE TRIEE EST" 
90 GOSUB 500;REM IMPRESSION APRES LE TKI 
95 END 

100 REM INITIALISATIONS 

110 READN9:REM NOMBRE DE MOTS DANS LA LISTE (MOINS UN) 
120 DATA4B 
130 DIM TS(N9) 

135 DIM AÏ!(N9):REM TABLEAU DES INDICES 
140 FOR J«QTON9:REAUT$(J):NEXTJ 
145 REM LES N9+1 MOTS DE LA LISTE 
150 DATA CLR, DATA, DIM, END, FOR, GOSUB 
155 DATA GOTO, INPUT, INT, LET, LIST, NEW 
160 DATA NEXT,PRINT,READ,REM,RETUHN 
165 DATA RUN,SGN,SIN,SQR,STEP,STOP,TAB 
170 DATA THEN, AND, CHRS ,L0AD,C0S, SAVE 
175 DATA EXP,LEPTS,LEN,LOG,MIDS,0R,N0T 
130 DATA PEEK.ROKE, RIGHTS, SPC, STRS, TAN 
185 DATA TO,RND,VAL,WAIT,IF,ABS 

199 RETURN 

200 REM AFFICHAGE DES MOTS DE LA LISTE 
210 REM LA LISTE EST DANS TÎ(N9) 

220 FORJ2=OTON9 

230 AS=T$(J2)+" ":REM ON AJOUTE 8 BLANCS DE 

240 PKINT LEFTS(AS,a>i:REM AVANT DE N'EN PRENDRE Q 

2 50 NËXTJ2 

260 PHINT 

299 RETURN 

400 REM TRI DE LA TABLE T5<N9) DANS L'ORDRE CROISSANT 
(METHODE PAR INSERTION DICHOTOMIQUE ET TABLE) 
405 FOR J4-0 TO N9 :AZ{ J4)=J4 :NEXTJ4 
407 ZÏ=0:UÏ-1:D%=2: 

REM CONSTANTES ENTIERES POUR ALLER PLUS VITE 
410 IF N9-0 THEN 499 
420 NI*N9-1:IF TS(N9Kl$(NU THEN 

A%=AÏ[N9):AÎ(N9)=AÏ(N1):AÏ(N1)=A% 
425 IF N9=l THEN 499 
430 FOR J4Ï-N9-2 TO Z% STEP -Uï 
435 AB<;=AÏ(J4ï)rA5-TS(ABÏ): 

IF AS<=TS<A%(J4Ï+UÏ)) THEN 480 
440 INF!-J«:SUPI=N9*] 

iii U"i=i ixin+s{:r%)/o%: ir Aî<ïï(Aï(i:i;i)) tmïk sm=.v'.;>;COT« 4 55 

450 INFÏ-K4Ï 

455 IF SUPÏ-INFÏ>UÏ THEN 445 

470 K1Ï-ISFÏ-U2:F0R K4Ï=J« TO Kl% lAÎ(K4ïJ=A%{K4Ï4-UÏ) îNËXT K« 

475 AÏ(INFÏ)=ABÏ 

480 NEXT J4Ï 

499 RETURN 

500 REM LISTE DE LA TABLE TS DANS L'ORDRE DONNE PAR 

LA TABLE Aï 
510 FOR J5-0 TO N9 

520 A$"TSUS:(J5)>+" " : 

REM 8 BLANCS DERRIERE LE MOT 
530 PHIfJT LEFTS(AS,8);:REM 8 PREMIERS CARACTERES 
540 NEXT J5 

599 RETURN 



00 REM SOUS-PROGRAMME D'ATTENTE * TRS 80 NIVEAU 2 
10 AS-INK£YS:IF AS'"" THEN 9110 
20 RETURN 



00 REM SOUS-PROGRAMME 0'/ 
10 CET AS: IF AS-"" THEN i 
20 RETURN 



TENTE * PET 



OU REM SOUS-PROGRf 
10 INPUTAS 
20 RETURN 



ME D'ATTENTE GENERAL 



Remarques sur le programme 

. I! faut faire deux sous-pro- 
grammes d'impression de la liste, 
un qui l'imprime dans l'ordre initial 
(lignes 200 à 299), l'autre qui im- 
prime la liste par l'intermédiaire des 
pointeurs (lignes 500-599). La liste 
est alors imprimée triée. 

. Le manuel d'utilisation du PET 
recommande, pour gagner du 
temps d'exécution, d'employer des 
variables plutôt que des constantes, 
et des variables entières (nom suivi 
de %) plutôt que des variables nor- 
males : ce qui explique la proliféra- 
tion de % dans les lignes 405 à 480, 
et l'utilisation de Z%, U%, D% à la 
place des constantes 0,1 et2. Notez 
de même qu'à la ligne 445, comme 
K4% est entier, la division est une 
division « entière » (c'est-à-dire que 
6/2 donne 3 et 7/2 donne 3 égale- 
ment). 

. L'impression peut se faire par 
blocs de 8 caractères tout en don- 
nant une bonne présentation aussi 
bien sur le PET (lignes de 40 = 5X8 
caractères) que sur les autres sys- 
tèmes (lignes de 64 = 8X8 ou 80 = 
10X8 caractères). 

. L'ordre des mots en DATA a été 
changé à la ligne 185, afin d'éviter 
les cas particuliers que ne permet- 
tait pas de détecter le fait qu'on ter- 
mine par VAL et WAIT... qui sont 
également les derniers dans l'ordre 
alphabétique. 

. Notez la ligne 135, nécessaire 
puisqu'on utilise le tableau A % pen- 
dant le sous-programme de tri. 

. Le lecteurpourratestersonpro- 
pre sous-programme de tri en le 
mettant en 400 à 499, et l'utilisa- 
tion du sous-programme d'attente 
(91 00-91 20) permet de donner un 
«top chronoe bien pratique pour 
mesurer les performances du pro- 
gramme (sur des 48 + 1 = 49 
chaînes utilisées ici). Les versions 
de ce sous-programme pour le PET 
et le TRS-80 sont fournies. Les sys- 
tèmes ne disposant pas d'une com- 
mande de type GET(PET)ou INKEY$ 
(TRS-80) pourront utiliser ia troi- 
sième version. 

Enfin, signalons qu'il existe de 
nombreux ouvrages sur les tris, 
dont nous ne citerons que deux : 

. en français: G. Louït, «Algo- 
rithmes de tri ». Dunod, Paris 1 971 , 
1 58 pages ; 

. en anglais: D.E. Knuth, «The 
Art of Computer Programming », 
volume 3, « Sorting and Sear- 
ching», Addison-Wesley, Mass. 
1973. 

Pierre Ke/ler 



94 



Certaines données, 

provenant 

d'un traitement 

par ordinateur, 

doivent être 

transcrites, 

sans erreur 

ni perte de temps, 

en un seul ou plusieurs 

exemplaires, 

sur des enveloppes, 

des fichiers, 

des dossiers 

ou autres documents. 

La réalisation de 

ce travail, 

manuellement 

ou avec l'aide 

d'une machine à écrire, 

entraîne 

un gaspillage d'argent, 

une perte de temps 

et de gros risques 

d'erreurs. 

Et pourtant, 

toute entreprise, 

petite ou grande, 

est confrontée 

chaque jour 

à des problèmes 

d'organisation 

de ce genre. 

Des étiquettes 

autocollantes 

en formats standardisés, 

en rangées 

simples ou multiples, 

sont vendues 

dans le commerce 

et s'adaptent à 

la plupart des besoins. 

Un ordinateur 

individuel, 

équipé d'une imprimante 

et d'un BASIC étendu 

permettant 

le traitement 

des variables 

alphanumériques, 

fixera « quelque part » 

ces informations 

qu'il vient d'élaborer. 



-postage- 



Simple... 

...mais efficace 

imprimer 

des adresses 
sur étiquettes 



Chaque variable alphanumérique 
peut contenir habituellement jus- 
qu'à 255 caractères. 

Dans le BASIC Microsoft, l'ins- 
truction CLEAR n (n étant une 
constante ou une expression) ré- 
serve n octets de la mémoire cen- 
trale pour le stockage de l 'ensemble 
des variables alphanumériques; n 
doit être égal ou supérieur au nom- 
bre maximum de caractères à 
stocker pendant le travail. 

Remarque : en réservant le nom- 
bre exact d'octets, le programme 
gère efficacement la mémoire cen- 
trale de l'ordinateur ; un pro- 
gramme n'utilisant pas d'alphanu- 
mériques devrait comprendre un 
CLEAR O afin de supprimer le 
«CLEAR 50 automatique" que le 
BASIC réserve dès sa mise en route. 

Le programme présenté ici utilise 
les fonctions suivantes : 

LEFT$ (variable, n) qui donne les n 
caractères de gauche d'une sé- 
quence de caractères (left-gauche) ; 



. RIGHTS (variable, n)qui donneles 
n caractères de droite d'une sé- 
quence de caractères (right-droite) ; 
. MIDS (variable, p, n,)qui donne les 
n caractères d'une séquence de ca- 
ractères dont le premier est le (p) 
ieme. 



Un exemple 
d'application 
du programme 



Le programme suivant : 

10 AS = « ADMINISTRATION» 

20 PRINT LEFT$ (AS, 3) 

30 PRINT MIDS (AS, 3,4) 

40 PRINT RIGHTS (AS, 6) £ 

exécuté, donnerait : ^ 

AD M ï 

MINI 5 

RATION | 

L'instruction LPRINT TAB (n} | 

variables déplace le curseur ou la £ 



Dossier Programmas n° 64 b 
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tête imprimante vers la position dé- 
sirée (n) de la ligne, avant d'écrire 
les différentes variables; (n) ne 
peut dépasser le nombre maximum 
de caractères qu'une ligne peut 
contenir, par exemple 64 carac- 
tères pour écran vidéo et 1 32 carac- 
tères pour une imprimante. L'ins- 
truction TAB peut être utilisée plu- 
sieurs fois après LPR1NT. Si l'on dé- 
passe le nombre maximum de 
caractères d'une ligne, l'impression 
s'effectuera sur les lignes sui- 
vantes, mais le bel alignement ris- 
que de se trouver compromis ! 



// faut définir 
des zones 
d'information 



Supposons que l'on dispose de 
l'information à traiter en mémoire 
centrale ; pour cela, la mémoire 
centrale doit être vaste ou les infor- 
mations relativement peu nom- 
breuses. 

Le traitement d'un DATA toujours 
le même nous oblige à définir les 
zones d'information (ce qui s'ap- 
pelle * dessin de carte - dans le trai- 
tement par cartes perforées). Par 
exemple : 25 caractères pour le 
nom, 19 caractères pour la rue et 
pour la ville, comme sur la repré- 
sentation ci-contre. 

Chaque séquence devra respec- 
ter la disposition indiquée en fi/. 
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10 REM PROGRAMME D'IMPRESSION D ' ET [(JUETTES 

20 REM AUTEUR DANIEL WUESTEN BERG US 

30 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 

40 CLEAR 1200 

50 DATA " 63 cars " 

100 FOR X=l Tû N 

1 10 READ AS , BS , CS 

120 LPRINT LEF l'S(AS ,25) ; : 

LPRINT TAfl(26) LEFTS ( BS , 2 5 ) ; : 

LPRINT TAB(52) LEFT$(CS,25) 
130 LPRINT "RUE";MIDS(A$,26,19);: 

LPRINT TAB(26) "RUE" ; MID$ ( BS , 2 6 , 1 9 ) ; : 

LPRINT TAB(52) " RUE" ; MID$ ( CS , 26 , 1 9 ) 
140 LPRINT RIGHTSCAS , 19) ; : 

LPRINT TAB(26) RIGrtTS ( BS , 1 9 ) ; : 

LPRINT CAB(52) UIGHTS ( CS , 1 9 ) 
150 LPRINT" ";CHRS(10) 
160 NEXT X 
170 END 



(2) Exemple de sortie d'étiquette 



JEAN FRANÇOIS 

RUE DES PRES FLEURIS 

1234 VILLE 



ROBERT JACQUES 
RUE DE LA F0RB 
9876 VILLAGE 



NNNNNNNNNNNNNNNNNNNNNNNNNRRRRRRRRRRRRRRRRRRRVVVVVVVVVVVVVVVVVVV 
Jean Robert du Pont 24 12345 Ville 



La liste du programme 



X rem *** PROGRAMME COMPLET DE TRAITEMENT SUR ETIQUETTES *** 

2 REB *** flUTEI.tR : DANIEL WUE5TENBERGHS *** 

3 REM *** COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR *** 
10 CLEflP 1206 

20 INPUT "DES IREZ- VOUS ENREGISTRES UNE ADRESSE il) OU LES IMPRIMER (2>";A 

21 ON A GOTO 40, 80 

40 INFtlT'T'E^IRFZ-VOiiS ENREGISTRER. UNE ADRESSE (l.>0UI-'2 'NOM", BON 6 GOTO 41,10 

41 PRINT "MOT DE PASSE POUR DERNIERE ADRESSE = "FIN'"" :PRIHT TftBtSJ"*". TAB^-VX". Tfie<4t--'"X". THe>0>"X" 

42 PRINT "NOM ET PRENOM EN 25 CARACTERES, RUE ET N* EN 19 CARACTERES, CODE POSTAL ET LOCALITE EN 19 CARACTERES* 
42 IMPUT H*:PRINT"HÏN1 K? EN POSITION D'ENREGISTREMENT 5.V.P " :FRINT#-1.H* 

44 GOTO 40 

45 END 

SB PRINT"METTPE LE MINI K? EN POSITION DE REPRODUCTION ; PLAV : INPUT "COMBIEN D'ADRESSES VOULEZ-VOUS LISTER") C 

85 FOR X=l TO INT':C^)+1 

90 INPUTK-1, Aï: IFFW="FIN"THENSTÛP 

95 INPUT#-1,B*:IFB*="FHT THENB«NDC*=" "AND. ÛOTO 120 

100 INFUTtt-l.Cî:IF C*="FIN" THBC'JVfiL" " fiND GOTO 120 

126 LPRINT LEFT$<A*,25); :LPPINT TA6v26)LEFm'B*. J5>; :LPRINTTflB(52)LEFTI(C$ J 25> 

120 LPRINT"RUE ".■ :LPRINT MIDfffi*.- 26.-19); :LPRINTTAEK26)"RUE "j :LPRjNTHID«B*i2&'19>i 

125 LPRINTTAEK52VRUE "; :LPRIWMID*','C-*,26.i9:> 

140 LPRINT RIGHTf(Aî,19>; :LPRINTTflB<26>RI6HT*<B* J 19>! LPRINTTA6>;52)RIGHT*iC*,19i 

150 LPRINT" "; ;LPRINT CHR*<18) 

1F0 NEXTX 

188 END 



L'instruction 40 réserve 1200oc- 
tets pour les variables alphanuméri- 
ques : 1 200 est ici donné àtitre indi- 
catif. 

La ligne 50 est une ligne DATA 
type de 63 caractères correspon- 
dant à une zone d'information. No- 
tez que les données sont comprises 
entre " pour que les blancs et les vir- 
gules soient interprétés normale- 
ment. Il suffit d'en mettre autant 
que de données à traiter. 

A la ligne 100, N doit être rem- 
placé par le nombre de données à 
traiter, divisé par trois : par exem- 
ple, pour 1 20 étiquettes, il faut 1 20 
lignes DATA et N = 120/3 = 40. 

La boucle 100 à 1 60 sera exécu- 
tée N fois. 

La ligne 110 ordonne la lecture 
des trois premières DATA, ensuite 
des trois suivantes, jusqu'à épuise- 
ment des lignes DATA. 

Les lignes 120, 130, 135 et 140 
traitent et impriment chaque don- 
née. A la ligne 120, les 25 carac- 
tères de gauche de la variable AS 
sont imprimés en début de ligne, 
ceux de B$ sont imprimés à partir de 



la position 26 et ceux de CS à partir 
de la position 52. A la ligne 1 30, les 
1 9 caractères à partir du 26 e de la 
variable A$ sont imprimés sur la se- 
conde ligne, ceux de B$ sont impri- 
més à partir de la position 26 et de 
Cs à partir de la position 52, l'ordre 
en étant donné a la ligne 1 35. 

A la ligne 140, les 19 caractères 
de droite de la variable A$ sont im- 
primés sur la troisième ligne, ceux 
de BS sont imprimés à partir de la 
position 26 et de CS à partir de la po- 
sition 52. 



Une augmentation 

de la puissance 

du p rogramme 

Ce programme est intéressant en 
soi mais d'exploitation peu pratique. 
En effet, la mémoire centrale de 
l'ordinateur ne pourra contenir la 
liste complète des clients, des pro- 
duits, etc, avec les adresses, réfé- 
rences... Il vaut mieux stocker les in- 
formations de base sur bande ma- 
gnétique et les extraire une à une 
pour les traiter, c'est-à-dire «sortir 



des étiquettes », ce que permet le 

programme suivant. (NB : à la ligne 
41, les X sont affichés sur écran 
vidéo pour guider l'opérateur lors- 
qu'il écrit une séquence alphanu- 
mérique). 

Ce programme permet (1) l'enre- 
gistrement des données et (2) leur 
reproduction à partir d'un cassetto- 
phone. Le choix est fait à la ligne 30. 
La ligne 31 guide l'ordinateur vers 
la ligne 40 (enregistrer) ou la ligne 
80 (reproduire). Ce programme 
contient deux sous-programmes 
(40-45 et 80-180). Remarquez à la 
Mgne43leP/?/A/7"# -/qui demande 
l'enregistrement par le mini K7 n° 1 
etàlaligne90le/A/PL/7"# -/qui de- 
mande la lecture de AS par le mini 
K7 n° 1. Il faut évidemment que 
l'enregistreur soit en bonne posi- 
tion ! 

Ce programme demande des 
aménagements si vous voulez trai- 
ter plus de 3 mentions ou si vous dé- 
sirez en régler la longueur (ici 25, 19 
et 19 caractères). L'adaptation sur 
disquette ou minidisquette devrait 
être un jeu d'enfant pour le lecteur. 

Daniel Wuestenberghs 
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-urgent- 



aff. exception. : 

données à saisir 

par prog. spécialisé et prat. 



Lors de la création d 'un fichier de données, que ce soit sur un gros 
ou un petit ordinateur, il faut trouver un moyen d'introduire dans 
la machine les différents éléments constituant ce fichier, et cela 
le plus commodément possible. Dans le cas des ordinateurs indi- 
viduels, cette saisie s'effectue en « temps réel » c'est-à-dire direc- 
tement au clavier, les renseignements étant immédiatement pris 
en compte. Cela peut présenter un certain danger : il convient de 
ne pas enregistrer des données erronées ! Une méthode de saisie 
doit assurer une certaine sécurité sur ce point en permettant à l'o- 
pérateur (qui n'est que rarement informaticien) de toujours pou- 
voir rattraper ses erreurs. La facilité et la rapidité de travail sont 
également des critères importants. Nous vous proposons un sys- 
tème de saisie qui tient compte de ces divers facteurs. 

Pour chaque zone d'un enregis- masque. Le type de la zone nous 
Irement, le système doit interroger conduira à faire un contrôle des 



l'opérateur pour connaître la \ 
à affecter à cette zone. Pour ce 
faire, lui et l'opérateur utilisent un 
langage commun de désignation 
dont les mots sont les libellés des 
zones. Il y aura autant de libellés 
que de zones différentes dans l'en- 
registrement. Il est très pratique de 
visualiser sur une même image d'é- 
cran l'ensemble de ces libellés, 
chacun étant suivi d'un certain 
nombre d'espaces que l'opérateur 
remplira à partir du clavier. Cet im- 
primé ou «masque» sera le reflet 
exact de la structure du fichier. La 
disposition des libellés dans le mas- 
que relève d'un critère de lisibilité. 
D'où l'idée de faire correspondre à 
un fichier donné une table conte- 
nant les libellés des zones (Table 
NZ$j. Une autre table donnera, pour 
chacune des zones, la position du 
début de son libellé à l'écran (coor- 
2 données X.Y. stockées dans les ta- 
= blés XX et YY par exemple). 

t! Dans le fichier, chaque zone est 
| caractérisée par son type (numéri- 
1 que, alphabétique ou les deux mé- 
I langés) et sa longueur. La connais- 
r g sance de sa longueur nouspermet- 
| tra d'allouer le nombre d'espaces 
î nécessaires après chaque libellé du 
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données, caractère par caractère au 
fur et à mesure de leur introduction 



et à refuser les caractères non 
conformes (contrôle de numéricité). 
Nous serons donc amenés à créer 
deux tables supplémentaires : la ta- 
ble des longueurs (dénommée LZ 
par exemple) contenant la longueur 
de chaque zone, et celle des types 
indiquant le type de chacune (de 
nom TZ par exemple). Pour rappeler 
à l'opérateurquel type de zone il doit 
introduire, nous pourrons rempla- 
cer les espaces qui suivent les libel- 
lés par des « . » (zones alphanuméri- 
ques) et des - - » (zones numéri- 
ques). 

Lors de la saisie des informa- 
tions, l'opérateur positionnera le 
curseur après chaque libellé et frap- 
pera la valeur des zones. 

Il est pratique qu 'après l'introduc- 
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Principes delà saisie et tables utilisées 



10 REM **** SAISIE D'ECRAN SUR TRS-iS 

30 REM COPYRIGHT L'ORDINATEUR 1NDIVI 
40 POKE 16553,255 IREM *** SPEC 
50 CLEAR 500 
60 GOSUB 1000 
70 COSUB 100 



:REM RESERVATIONS E 



100 CLS :REM *** SOUS PROGRAMME DE SAISIE *** 


110 CLS ;REH AFFICHAGE DU MASQUE 


130 XY-YY(I)*64»XX(I>!REM CONVERSION X ET ï EN COORDONNEE @ 


itr.i ;>sm>MV n?.$( -; ; " ; \ 


150 ON TZtl) GOSUB 500,570 ;REM CHOIX DU REMPLISSAGE DES ESPACES 


160 NEXT I 


170 I-UCHS-"" :REM REMPLISSAGE DES ZONES 


180 LG-LEN(NZ$(D) 


190 XY-YY(l>"64.XX(I)tLGM 


200 SET((XX(I)»LG'1)*2,YY(I)*3) ;REM POSITIONNEMENT DU CURSEUR 


210 PRINT(JXÏ 1 ">"; 


220 XS-INKEYS; IF XS."" THEN 220 


230 IF ASC(XS) - 13 THEN IF CHS-"" THE» 320 ELSE 300 


240 IF ASC(XS) ■ 8 THEN 


IF CHS-"" THEN IF 1-1 THEN 220 ELSE RESÉTt (XX( I >+LC+l )*! ,YY 


I-I-l:GOT0 180 


ELSE CHS-LEFTS(CH$,LEN(CHS)-1):PRINT x$ ; :G0TO 220 


250 ON TZ(I) GOSUB 3000,3050 


REM VERIFICATION DU TYPE 




REM ERREUR SI TYPE NON CONFORME 


270 CHS-CHS+XS 


REM CUMUL DANS ZONE ' 


2B0 PRINT XS; 


REM AFFICHAGE CARACTERE 


2Ï0 IF LEN(CH$XLZ(I) THEN 220 


REM ENCORE DES CARACTERES A LIRE 


300 RESU1-CHS 


310 CHS-"" 


320 IF KHZ THEN RESET((XX{l)*LG+l)*2.YY(I)*3>i I-I+Ii GOTO 130 


330 RETURN 




510 REM INDICATEURS VISUELS DES TYPES DE ZONES ... 


520 REM ALPHANUMERIQUES 


530 FOR K-l TO LZ(I) 


540 PRIHT"."; 


550 NEXT K 


560 RETURN 


570 REM NUMERIQUES 


5B0 FOR K-l T0 LZ{I) 


600 NEXT K 
610 RETURN 



1010 REM ACQUISIT 



1 NZS(NZ),XX(NZ).YY(NZ),L2 
R 1-1 TO NZ 



1 LECTURE DES t. 



1 LECTURE DES ORDONNÉES 



1 LECTURE DES LONGUEURS 



3060 
3070 

4995 



5025 R 
5030 t 
5015 R 
5040 C 
5045 R 
5050 D 



REM TESTS SUIVANT TYPE 
REM ALPHANUMERIQUES 
IF ASC(XS) < 32 THEN q 

RETURN 

IF ASC(XS) < 48 OR ASC 
RETURN 


DES ZONES ... 
2 ELSE Q-l 

XS) > 57 THEH Q-2 ELSE 



tion d'une zone (terminée parun re- 
tour chariot par exemple), le curseur 
saute automatiquement au début de 
la zone suivante. Il est également 
utile, au moment de la saisie, de 
pouvoir revenir sur des zones ar- 
rières où des erreurs de saisie 
auraient été commises. Cette fonc- 
tion peut être réalisée par la pres- 
sion de la touche curseur gauche. 

Voici l'organigramme donnant 
les différents étages de notre sai- 




ftogiamme prindj 




Traitement flèche sauche 



Dossier Programmes n° 54 bl 



sie. Le programme principal affiche 
tout d'abord le masque qui décrit 
l'enregistrement à saisir. Puis il 
réalise une boucle exécutée autant 
de fois qu'il y a de zones dans le fi- 
chier. 

Pour chacune d'entre elles on ef- 
fectue les opérations suivantes: 

— positionnement du curseur 
après le libellé de cette zone. 

— chaque caractère est saisie au 
vol par balayage du clavier. 

Le retour au caractère précédent 
s'effectue par l'emploi du curseur 
gauche. Si on utilise ce curseur en 
début de zone, on revient à la zone 
précédente (sauf si on se trouvait 
positionné sur la première zone !) 
chaque caractère est soumis à un 
test qui dépend du type de la zone. 
S'il est erroné, il n'est pas pris en 
considération. Sinon il est affiché à 
l'écran et ajouté à une zone de cu- 
mul. Lorsqu'on a rentré assez de ca- 
ractères pour remplir la zone, il y a 
saut automatique à la zone sui- 
vante. Le saut peut être également 
provoqué par l'introduction d'un re- 
tour chariot. 

Une fois saisie, la valeur de cha- 
que zone est stockée dans un ta- 
bleau. 

Les principes que nous venons 
d'énoncer servent à réaliserun pro- 



gramme de saisie. Nous l'avons 
écrit sur un TRS 80 et en donnons 
ci-dessous la liste intégrale. 

Ce programme utilise certaines 
particularité du BASIC niveau 2. La 
saisie des caractères s'effectue au 
moyen de la fonction INKEYS. L'af- 
fichage en un point de l'écran est 
réalisé avec PRINTC. Cette dernière 
fonction n'utilisant qu'une coordon- 
née, il est nécessaire de convertir 
les va leurs (X, Y) en une seule valeur 
XY (ligne 190). La zone en cours de 
saisie est pointée par un caractère 
graphique affiché par l'instruction 
SET. Au passage auneautrezone.il 
est éteint par RESET. 

Au début du programme, la des- 
cription du masque est fournie par 
des données situées en DATA 
(lignes 5 000 à 5 050). Puis on exé- 
cute le sous -programme de saisie. 
A noter qu'il doit normalement être 
suivi d'un sous programme d'enre- 
gistrement sur mini-disquette ou 
sur cassette. 

Le sous-programme affiche tout 
d'abord le masque (lignes 100 à 
160). Puis les zones sont remplies 
avec les possibilités de correction 
d'erreurs et de contrôle de validité 
déjà évoquées (lignes 170 à 330). 
Chaque fois qu'une zone est rem- 
plie, elle est stockée dans un ta- 
bleau (ligne 300). 



Dans notre programme, les ca- 
ractéristiques du masques sont 
stockées en DATA. Il serait intéres- 
sant de réaliser un programme pour 
créer ce masque. Par exemple on 
pourrait dessiner à l'écran l'image 
du masque telle qu'elle est affichée 
au début de notre programme ; puis, 
à partir de cette image, remplir les 
tableaux descriptifs du masque. En 
allant plus loin, un nom pourrait être 
affecté à chaque masque et sa des- 
cription stockée sur mini-di 
quettes. Lors de l'utilisation d'un fi- 
chier il seraitainsi possible de char- 
ger en mémoire le masque qui lui 
est associé. (D'ailleurs plusieurs 
masques pourraient être associés à 
un même fichier), 

La méthode de saisie que nous 
venons d'exposer devrait rendre de 
grands services pour les applica- 
tions de gestion. Elle est facilement 
adaptable à d'autres ordinateurs in- 
dividuels. Il suffit pour cela de modi- 
fier les parties du programme qui 
réalisent le calcul de la position des 
zones à l'écran et leur affichage sui- 
vant le mode d'adressage dont on 
dispose. 



Jacques Boisgontier 




REIMS 



! le spécialiste des logiciels 

| de jeux.., du sérieux... des extensions 
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Référence 113 du service-lecteurs (page 172) 



SINCLAIR : ZX 81 - Spectrum 

Extensions MEMOTECH 16-32-64 K 
HAUTE RÉSOLUTION-PROGRAMMES, etc.. 

ORIC: 16 K-48 K 

COULEUR - SON - HAUTE RÉSOLUTION. 

EPSON: HX 20; 16 K- 32 K 

ORDINATEUR PORTATIF AUTONOME. 

VICTOR, CASIO etc.. 



SYSTEMES PROFESSIONNELS 

COMPTABILITÉ - STOCK 
MlPROGRAMMESSUR MESURE 



nous consulter ! 
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faites varier la longueur de vos enregistrements 

[ pour gagner 

de la place et du temps 



L'enregistrement d'un fichier de données pose des pro- 
blèmes liés aux temps d'accès et, notamment avec les cas- 
settes, à la fiabilité de l'enregistrement. Ce dernier point 
nécessite souvent une modification du matériel. Le pre- 
mier, par contre, peut être résolu par programme. En effet, 
la manière dont les informations sont lues ou écrites fait 
varier considérablement la rapidité d'exécution des opéra- 
tions. 



Le problème des fichiers, de leur 
création et de leur exploitation, est 
fondamental pour les utilisations 
professionnelles d'un ordinateur 
individuel. Le problème a été sou- 
levé dans l'article « Utilisations pro- 
fessionnelles : est-ce seulement un 
problème de matériel" de Thérèse 
Rieul (*). 

Nous envisageons d'expliquer ici 
le choix de l'enregistrement à lon- 
gueurs variables, d'entrer dans la 
technique de base, de définir un 
sous-programme d'écriture et un 
sous-programme de lecture des en- 
registrements de ce type, et enfin 
d'appliquer ceci à la création de fi- 
chiers d'adresses permettant les 
transferts sur étiquettes auto-col- 
lantes (* *). 

Signalons que l'enregistrement 
ci-dessous est appelé article; il fait 
partie du rVc/wer-adresses (com- 
posé de tous les articles). L'article 
adresse-complète est subdivisé en : 

. une rubrique NOM (la rubrique 
est un ensemble à signification pré- 
cise, le nom d'une personne ici I); 
I . une rubrique : prénom, adresse, 

numéro et localité. 
I La rubrique est subdivisée en 
mots, ensemble de caractères (let- 
tres, chiffres ou signes) qui consti- 
tuent la plus petite unité d'informa- 
tion exploitable par l'homme}. 

Par exemple : avenue des Tilleuls 
est la 3 e rubrique de l'article X du fi- 
chier-adresses : cette rubrique est 



composée de 3 mots dont le premier 
(Avenue) est composé de 6 carac- 
tères alphabétiques. 

Remarques: une information 
peut être représentée par un carac- 
tère alphabétique (AVENUE), numé- 
rique (887,75) ou alphanumérique 
(EDITEST 230589 F). (*). 

Une chaîne de caractères étant 
constituée au maximum de 255 (**} 
caractères, il s'agit d'exploiter au 
maximum la longueur disponible. 
L'espace étant considéré comme un 
caractère blanc, il faut limiter les 
espacements entre données. C'est 
pourquoi il est préférable de repré- 
senter l'enregistrement (1 ) : 



(2j Nous pouvons dire que la re- 
présentation (2) permet l'enregis- 
trement de rubriques de longueurs 
quelconques (sans avoir à se préoc- 
cuper de la longueur du dessin de 
zone !). Il y a utilisation optimale de 
la mémoire de l'ordinateur et l'enre- 
gistrement sur un support magnéti- 
que ne demande qu'un minimum 
d'espaces arrêt-marche (on appelle 
espace arrêt-marche l'espace vide 
entre deux blocs successifs, en an- 
glais gap = trou). 

Lorsque les enregistrements sont 
courts et que la machine autorise 
des blocs d'une longueur supérieure 
(255 caractères), on a presque tou- 
jours intérêt à grouper plusieurs en- 
registrements par bloc, de manière 
à économiser de la place sur la 
bande magnétique, et à augmenter 
la vitesse d'exploitation. 

En effet, un espace arrêt-marche 
dure un certain temps, fixe, par 
exemple 1 seconde. Si l'on a sur la 
bande 2 secondes de données, 1 se- 
conde d'arrêt marche, 2 secondes 



.RUE N# . . LOCALITE . , 



par l'enregistrement (2) : 

NOK*PREN0M*RUE*N#*LOCALITE 

En effet, deux avantages peuvent 
être dégagés. 

(1) Le deuxième enregistrement 
est plus court car le DESSIN DE 
ZONES doit réserver plus d'empla- 
cements-caractères que la lon- 
gueur moyenne des rubriques (nom, 
prénom, rue, n° et localité). S'il ne le 
fait pas, il y a des risques de tFon- 
quer un nom plus long ou une loca- 
lité plus longue que la moyenne. 



de données, etc., on va 2 fois plus 
vite que si l'on a 1/2 seconde de 
donnée, 1 seconde d'arrêt marche, 
1/2 seconde de donpée, etc. Tout 
au moins bien sûr lorsque le temps 
de traitement de l'unité centrale est 
faible par rapport à la durée d'une 
lecture sur fichier magnétique — 
cassette ou disquette —, ce qui est 
le plus souvent le cas. 

Une marque de rubrique est un 
caractère alphanumérique utilisé 
comme séparateur des rubriques 
d'un article. Nous ne considérerons 
que des articles composés d'un 



[h |u|e|s1t|e|n[b|e|r| 

Exemple : dessin de zone « NOM » — - - 
avec 10 positions (la moyenne ac- 
cordée); un nom de- 13 lettres est 
évidemment tronqué. 



(') Ça. c'est le télex de /'Ol. 

(") Sur la plupart des BASIC dss PSI habi- 



même nombre de rubriques. Les gueur du bloc (A2). Si le cumul de 

mots d'une rubrique ne sont « sépa- ces deux longueurs dépasse 255 ca- 

rés» que par la marque 'blanc' ou ractères, il n'y a pas addition des 

espace' deux séquences mais enregistre- 



110 DATA PAUL 
120 DATA PIERRE 



EMILE 
MICHEL 



RUE DE LA GARE 
HAMEAU 



121 76543 VILLE 
9 98765 VILLAGE 



1 1 1 1 i 

150 DATA PAU4L*EMILE*RUE DE LA GARE*123*76543 VILLE 
160 DATA PIERRE*MICHEL*HAMEAU*9*98765 VILLAGE 

î t t t 

marque de rubrique = asUri^ua. 



Comment le programme peut-il 
ordonner le traitement de ces 
chaînes de caractères 7 

Une telle méthode de groupage 
des articles est pour l'homme diffi- 
cile, tant à écrire qu'à déchiffrer. Il 
s'ensuit que les données de base 
sont représentées sur des grilles 
prévoyant l'information d'encom- 
brement maximum. Ce n'est qu'à 
l'entrée des données dans l'ordina- 
teur qu'un sous-programme spécial 
éliminera les zones non-employés : 
c'est le programme de condensa- 
tion dont l'objet est d'augmenter la 
densité de l'information rangée en 
mémoire. Cf ci-dessous (*). 



ment du bloc tel qu'il est (PRINT= # 
1 ,5) et le nouveau bloc S est initia- 
lisé à la valeur du dernier article SI 
(ELSE de l'instruction 1100). Les 
instructions 1 1 1 à 1 1 30 permet- 
tent de retourner au programme- 
maître si S0 = C, sans quoi l'écri- 
ture des articles continue (GOTO 
1030). 

Inversement, lorsqu'il faut impri- 
mer le contenu de ce fichier- 
adresses, un sous-programme de 
décondensation rétablira la mise en 
page initiale, en analysant les diffé- 
rents blocs pour les décondenser en 
articles (les marques d'articles sont 
bien utiles à ce moment-là, et, re- 



1 CLEAR 1000 ; DEFINT A : DEFSTR L-S 

2 G0SUB 1000 

3 PRINT "FIN" 

4 END 

1000 REM *** SOUS PROGRAMME DE CONDENSATION >' 

1010 REM *** COPYRIGHT vJUESTENBERGHS DANIEL ' 

1020 REM *** ET L'ORDINATEUR INDIVIDUEL 

1030 INPUT "NOM :" ; NM 

1040 INPUT "PRENOM :" ; PR 

1050 INPUT "RUE, AVENUE, BOULEVARD,... :" ; i 

1060 INPUT "NUMERO DE L'IMMEUBLE ;" ; N0 

1070 INPUT "LOCALITE :" ; LO 

1080 SI=NM+"*"+PR+"*"+R+"*"+N0+"*"+L0+"**" 

1090 A1-LEN<S1) : A2=LEN(S) 

1100 IF Al+A2<255 THEN S=S+S1 ELSE PRINT*-1,! 

1110 INPUT "TAPEZ 'S' LORSQUE VOUS AVEZ 

TERMINE LA SAISIE DES ADRESSES" ; S0 

1120 IF S0="@" THEN PRINT#-1,S : RETURN 

1130 GOTO 1030 



ou sur disquette, en changeant 
l'instruction 1211) (lignes 1000 à 
1030). 

(2) Lecture des articles de la 
chaîne (instruction 1040 à 1210). 
Nous utilisons la fonction MIDS 
(variable, p,n) qui donne les n carac- 
tères d'une chaîne dont le premier 
caractère est le (p) ième de la chaîne 
originelle. 

(3) Lecture des rubriquesde cha- 
que article (il s'agit en fait d'un 
sous-programme du(2)ci-dessus — 
instructions 2000 à 2110). 

Remarque . comme les blocs ne 
sont pas nécessairement de 255 
caractères, la longueur du bloc doit 
être calculée par l'instruction LEN 
(bloc) ; la boucle ne lira donc que les 
(LEN (bloc) premiers caractères » 
(instructions 1050 et 2020). 

De l'instruction 1340 à l'instruc- 
tion 1400, l'article appelé Ml est 
balayé en lecture afin de déceler la 
présence d'un astérisque. Suppo- 
sons que le 8 e caractère en soit un ; 
nous aurons donc : 

MIDS (Ml, 8,1)="*" 

Y4 -8-1=7 
R = MID (Ml, 1,7) 
ce qui signifie que la variable R cor- 
respondra à la partie de Ml partant 
du I e ' caractère jusqu'au 7 e . Et 
Y3=7 + 2 = 9 car si la 1 ere rubrique 
est terminée au 7 8 caractère, le 8 e 
étant la marque, la lecture ne doit 
reprendre qu'au 9 e ! 
Exemple d'exécution 

Si la variable alphanumérique en- 
trée (INPUT K.7) est : 



Le programme ci-dessusutilise la 
routine de condensation. L'instruc- 
tion 1 080 compose l'article 
condensé; en 1090, la longueur de 
l'article est calculée ainsi que la lon- 



■ CLEAR 7 000 : réserve 1 OOO caractères 

pour les chaînes. 

• DEFINT A : tout nom de variable 

cani par A désigne une variable de 

DEFSTR LS; tout nom de variable. 

çant par L.M..S désigne une variable de 

PRINT - 1 : écrire sur la cassette. 



connues par la machine, elles per- 
mettront la séparation des articles) 
et en rubriques (les marques de ru- 
briques, permettront la même pro- 
cédure). Il suffira de cadrer le 
contenu des rubriques dans le des- 
sin d'imprimé choisi. 

Voici (p. 47) une routine de décon- 
densation-lecture des blocs. Le pro- 
gramme est composé de 3 grandes 
parties (voir les REM). 

(1) Lecture de la chaîne de carac- 
tères condensés ou bloc d'enregis- 
trement sur cassette (ou en DATA, 



Liste de la routine de décondensation - lecture des blocs 



1 CLEAR 5000 : DEFINT A, 

2 GOSUB 1200 

3 PRINT "FIN" 



DEFSTR L-S 



PAUL*EMILE*RUE DE LA GARE*1 2 3*45678 VILLP IB»E*MICHEL*HAME«I*9*98765 VILLAGE*-.MARC*ANTOINE*GRAND-RUE«8*76543 BOURGADE** 



soit 5 adresses condensées. 

La décondensation de ce bloc ► 
donnera, après décondensation ; 5 
articles de 5 rubriques. 

Remarques 

fi) Les marques utilisées (asté- 
risque ici) ne doivent pas se rencon- 
trer dans le texte (faute de quoi le 
texte sera considéré comme mar- 
que de mot et il y aurait confusion 
sur le nombre d'articles ou de rubri- 
ques). 

(2) Les marques d'articles et de 
rubriques doivent toujours terminer 
l'article ou la rubrique puisqu'elles 
les délimitent (dans le bloc : 2 asté- 
risques après RIVIERE et dans une 
rubrique : 1 astérisque après VILLE 
par exemple). 

(3) La ligne 1310 est ici incor- 
recte (arrête l'exécution), mais faci- 
lite la manipulation du programme. 

Le programme de synthèse de la 
page 48 reprend les sous-pro- 



1200 REM *** SOUS PROGRAMME DE DECONDENSATION *** 

1210 REM *** AUTEUR : DANIEL WUESTENBERGHS *** 

1220 REM *** C0PYRIGHT:L'0RD1NATEUR INDIVIDUEL *** 

1230 REM *** ET L ' AUTEUR *** 

1240 PRINT "CASSETTE EN POSITION DE LECTURE" 

1250 INPUT#-1,S : PRINT S 

1260 REM *** ROUTINE DE LECTURE DES ARTICLES *** 

1270 Yl=l 

1280 FOR X=l TO LEN(S) 

1290 IF MID$(S„X,2)="**" THEN 1300 ELSE 1340 

1300 Y2 = X 

1310 M1=MIDS(S,Y1,Y2-Y1+1) 

1320 GOSUB 1360 

1330 YI=Y2+2 

1340 NEXT X 

1350 STOP : GOTO 1250 

1360 REM *** ROUTINE DE LECTURE DES RUBRIQUES *** 

1370 Y3»l 

1380 FOR Z=l TO LEN(Ml) 

1390 IF MIDS(M1,Z,1)="*" THEN 1400 ELSE 1440 

1400 Y4=Z-1 

1410 R=MIDS(M1,Y3,Y4-Y3+1) 

1420 PRINT R 

1430 Y3-Y4+2 

1440 NEXT Z 

1450 RETURN 




TRAITEMENT 
UN 
ARTICLE 



PAUL*EMILE*RUE DE LA GARE*123*45678 VILLE* 

PAUL 

EMILE 

RUE DE LA GARE 

123 

45678 VILLE 

PIERRE*MICHEL*HAHEAU*9*98765 VILLAGE* 

PIERRE 

MICHEL 

HAMEAU 

9 

98765 VILLAGE 

LUC*ARMAND*RUE DU CENTRE*4*32109 BOURG* 



32109 BOURG 

MARC*ANTOINE*GRAND-RUE*8*76543 BOURGADE* 

MARC 

ANTOINE 

GRAND-RUE 



76543 BOURGADE 




Organigramme rior- 

rna3i&ëdu traitement 

dim bloc 



10 REM *** PROCHMHE COMPLET DE CONDENSATION *** 
20 REM *** DECONDENSAT! SS ET TRAN S ETIQUETAGE *** 
REM *** AUTEUR I DANIEL WUESTENBERGHS *** 
REM *** COPÏRIGHTîL'ORDINATEUR INDIVIDUEL *** 
50 REM *** ET L ' AUTEUR *** 

CLEAR 5000 : DEFINT A-C, X-Z : OEFSTR L-S : DIM F 

FI— 1 
80 LL-"Ï % X 

90 S-"" 

100 PRINT "DESIREZ-VOUS ENREGISTRER UNE ADRESSE (1) 
110 PRINT " OU IHFKIMER DES ETIQUETTES (2)' 

120 PRINT " OU ARRETER OV 

130 INPUT " VOTEE CHOIX " ; CH 

140 OH CH GOSUB 1000 , 1200 „ 160 
150 GOTO 90 
160 END 



La liste 

du programme 

complet 

en BASIC 



grammes de condensation et de dé- 
condensation. Le choix est opéré en 
début de programme (instruction 
90) et l'instruction 100 envoie au 
sous-programme choisi (écrire ou 
condenser, lire ou décondenser). 
L'instruction 61 définit le format 
d'impression qui sera utilisé par 
l'instruction 1 303. L'instruction 
1 305imprimetroishgnesblanches 
(ce sont les interlignes). 

On pourrait ajouter une instruc- 
tion 1212 IF S = "FIN "THENRE- 
TURN qui renverrait à l'instruction 
1 00 comme cela est fait à 1 1 50. 

L'organigramme reprend le trai- 
tement de décondensation d'un 
bloc d'enregistrement (instructions 
1200 à 1410). 

Certaines améliorations peuvent 
être apportées à la présentation du 
programme (PRINT "libellés d'ins- 
tructions pour l'utilisateur"); ces 
instructions ont été supprimées 
pour ne pas alourdir le listing. 

Le lecteur modifiera facilement le 
programme afin d'arriver à une uti 
lisation spécifique de ce qu'il a ap 
pris pour les adresses. 



Daniel Wuestenberghs 



, REt1 *** sous PROGRAMME (1) DE CONDENSATION 

i INPUT "NOM :" ; NM 

I INPUT "PRENOM :" ; PR 

) INPUT "RUE. AVENUE, BOULEVARD,... i" ; R 

I INPUT "NUMERO DE L'IMMEUBLE :" ; NO 

i INPUT "LOCALITE s" ; LO 

) Sl-fiM*"*"-'PR+"*"*i"-"*"- , NO+"*"*LO*"**" 

) Al-LEN(Sl) ; A2"LEN(S) 

) IF Al + A2<255 THEN S-S+Sl ELSE PRINTitFI.S I S 

] PRIHT "TAPEZ '@' LORSQUE VOUS AVEZ 

UNE LA SAISIE DES ADRESSES" 

) US-INKEYS : IF US-"" GOTO 1100 

1 IF L)$="@" THEN 1120 ELSE 1010 

5 PRINT#FI,S : PRINT#FI,"FIN" ! RETURN 



; (2) DE DECONDENSAT! 
I INPUTtfFI.S 
> IF S="FIN" THEN 1390 
I PRINT "LECTURE DE L'ENREGISTREMENT" 
1 REM *** ROUTINE DE LECTURE DES ARTICLES ** 
| ïl-1 : B-0 
) FOR X=l TO LEN(S) 

) IF MIDS(S,X.2>-"**" THEN 1270 ELSE 131C 
) Y2=X I 6-B+l 
) Ml-MIDS(S,ïl,ï2-¥l+l) 
1 GOSUB 1400 

1 Ï1-Ï2+2 



320 FOR Xl'l 1 
330 FOR ) 



LPRINT USING LL; PU1.X2), P(X1+1,X2), P(X1+2,X2) 
) NEXT X2 

) LPRINT " " : LPRINT " " : LPRINT " " 
) NEXT XI 
] GOTO 1210 
3 RETURN 



REM *** ROUTINE DE LECTURE DE 


RUBRIQUES *** 


Y3=l : C=0 

FOR Z-l TO LEN(Ml) 

IF MIDSCM1,Z,1)-"*" THEN 

Y4=Z-1 : C-C+l 

R=MIDS(H1,Y3,Y4-Y3*1) 
P(B,C)-R 


440 ELSE 1480 


NEXT Z 
RETURN 





Voici une illustration 

du principe 

du programme. 

Ci-dessus : 

les enregistrements 

sous forme condensée. 

A droite : 

les mêmes 

sous forme décondensée. 
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PAUL 
EMILE 
SUE DE LA GARE 



MARC 

ANTOINE 

GRAND-RUE 

8 

76543 BOUBGADE 



PIERRE 

MICHEL 

HAMEAU 

234 

98765 VILLAGE 

LOUIS 

LEOPOLD 

PETITE RUE 

21 

24680 RIVIERE 



ARMAND 

RUE UJ CENTRE 

4 

32109 BOURG 

ALPHONSE 

ROBERT 

SUE DROITE 

10 

12345 MONT 



-recherche- 



organisez vos données 
en listes linéaires doubles 



Le programme en Basic que nous publions illus- 
tre l'organisation de données appelée liste li- 
néaire double. Cette structure de liste linéaire 
double donne la possibilité, par exemple, de 
créer des index ou d'organiser de façon perfor- 
mante un fichier « commandes ». Elle permet 
aussi d'assurer la gestion d'un stock de produits 
finis. Découvrons donc cet outil logique puissant. 



Intéressons-nous d'abord aux dans la réalité les « valeurs » 

structures classiques d'organisa- comparées sont des arguments 

tion. Il faut préciser que si, par numériqu 

commodité, les arguments sont, qui pi 



uuiiMiiuuiit!, les tnyumeHia ouni, n ul H CUVCML clic cua 

dans le programme et le corps de constitués d'éléments r 
l'article, des nombres entiers, de « majeur » à « mineur » 



alphanumériques 

nt être eux-mêmes 

ordonnés 
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On peut comparer rapidement 
ces trois structures. 

L'organisation séquentielle est 
peu gourmande en place ; elle est 
rapide à lire et elle permet l'emploi 
de la recherche dichotomique. En 
revanche, elle est difficile et coû- 
teuse à réorganiser (recopies ou 
décalages en cascade lors des ad- 
ditions et suppressions). 

L'organisation adressée a le 
grand avantage d'être beaucoup 
plus performante que la précé- 
dente lors des réorganisations, 
celles-ci ne portant que sur la 
table - ou le fichier - des « poin- 
teurs ». Il va de soi que le fichier 
des pointeurs est physiquement 
séparé du fichier principal. La 
place occupée est un peu plus 
grande. La recherche dichotomi- 
que est possible. 

La liste simple présente un in- 
convénient : la recherche dichoto- 
mique n'y est pas possible. On lit 
le fichier ainsi : 

a) consultation de la racine de la 
liste ; on a ainsi le rang physique 
(indice) de l'élément le plus faible 
(ou considéré comme étant le pre- 
mier de la liste) ; ; 

b) on progresse ensuite de pro- i 
che en proche (et le plus souvent : 
en zig-zag), éventuellement jus- 
qu'en butée, c'est-à-dire jusqu'à 
l'élément qui n'a pas de succes- 
seur (valeur du chaînon = 0). 

Notons que, contrairement à r 
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l'organisation adressée, les chaî- 
nons peuvent, ici, faire partie de 
l'enregistrement principal. En 
effet, une mise à jour (addition 
d'un élément par exemple) ne 
donne lieu qu'à un minimum 
« d'écriture » : 

. inscription dans la rubrique 
« successeur » du nouvel enregis- 
trement, de la valeur du rang (ou 
indice) de l'élément suivant. 
. modification de la valeur du 
chaînon « successeur » de l'élé- 
ment précédent. 

Malheureusement, la liste sim- 
ple présente d'autres inconvé- 
nients : on ne peut la lire que dans 
un seul sens et, dans le cas d'une 
recherche avant la mise à jour, il 
faut, de façon continue, mémori- 
ser le dernier « précédent » (c'est- 
à-dire son indice), ce qui pénalise 
la vitesse de recherche. 

Voyons maintenant la liste dou- 
ble (encadré ci-après) 
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Pour lire en ordre « croissant », 
on utilise les « successeurs », et si 
le nom de l'élément est V(i), on 
aura successivement V(4), V(5), 
V(2), V( 1 ) et V(3). L'utilisation des 
« précédents » est évidemment 
analogue. 

Cela nous amène à la représen- 
tation « logique » d'une liste dou- 
ble (encadré ci-dessous) : 

Dans notre programme, les va- 
riables dans lesquelles sont entre- 
tenues les valeurs des racines 
commencent par « D » pour les 
précédents, et par « F » pour les 
successeurs. Nous aurions par 
exemple; D1=4,et F1=3. 

Occupons-nous maintenant du 
programme. Les spécifications 
qu'il respecte sont décrites ci- 
après. 



1) Gérer en temps réel (lire, ajou- 
ter, supprimer) par liste double un 
ensemble de nombres entiers 
compris entre 1 et 999. 

2) Ces nombres seront en ordre 
croissant sur les successeurs (et 
donc en ordre décroissant sur les 
précédents). 

3) Les nombres seront entrés au 
clavier, précédés de la commande 
« T » (Trouver), « A » (Addition), 
« S » (Suppression). 

4) Les homonymes seront autori- 
sés, mais pourront être interdits 
par une intervention simple du 
programmeur. 

5} Au départ la table sera vide, 

les valeurs principales étant à 

zéro. 

6) Les règles de mise à jour (en 

temps réel) sont les suivantes : 

. un ajout doit se traduire par 



Représentation logique d'une liste double 



-H 



l'utilisation (et donc la suppres- 
sion) du « trou » d'indice le plus 
bas ; 

. si l'ajout a déjà des homony- 
mes, il devra être chaîné avec 
ceux-ci de façon à respecter l'or- 
dre des indices croissants. ; 
. une suppression ne pourra évi- 
demment avoir lieu que si un élé- 
ment, au moins, est égal au nom- 
bre indiqué ; s'il y en a plusieurs, 
l'élément à supprimer sera celui 
de rang le plus élevé. 
7) Les commandes supplémen- 
taires suivantes seront program- 
mées : 

. a V » (comme Voir) entraînera 
l'affichage de la table principale et 
des tables de chaînage ; si la di- 
mension de la table est supérieure 
à quinze, seuls les quinze pre- 
miers éléments seront affichés ; 
la valeur des racines sera égale- 
ment affichée. 

. « L » (comme Lister) doit per- 
mettre de lister les valeurs princi- 
pales dans leur ordre croissant ; 
. « I » (comme Inverse) fera la 
même chose en ordre décrois- 
sant. 

. « F » (comme Fin) mettra fin au 
programme. 

Passons maintenant aux 
description et réalisation 
du programme 

On voit que la routine d'initiali- 
sation « INIT » est placée en fin de 
programme. Cela permet de pla- 
cer tout au début du programme 
les lignes de code qui donnent la 
structure générale et rejettent, à 
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la fin, des instructions parfois 
nombreuses qui ne sont exécu- 
tées qu'une seule fois. Cette dis- 
position augmente les performan- 
ces de certains Basic. 

Le programme se termine lors 
de l'exécution de la routine « FIN » 
au sein de laquelle se trouve une 
instruction « END ». 

Regardons rapidement la rou- 
tine « SAISIE » : (ici lignes 410 à 
475). Rien de particulier, si ce 
n'est l'instruction INPUT$ (n) per- 
mettant, en Basic TRS-80 Mo- 
dèle 2, de saisir « n » caractères 
(ici un), sans appuyer sur ENTER 
(RETURN). 

Avant de voir la routine INIT, 
reconnaissons qu'un problème se 
pose : faut-il chaîner les trous 
entre eux ? Puisqu'on peut les 
identifier à leur valeur nulle (zéro 
numérique), on pourrait les trou- 
ver par une banale recherche sé- 
quentielle. Remarquons simple- 
ment que, suivant l'emplacement 
et le nombre de ces trous, la 
durée de recherche peut varier for- 
tement. 

Nous avons choisi la solution 
du chaînage. Il fallait donc, à l'ini- 
tialisation, chaîner (par les suc- 
cesseurs et les précédents) une 
table de valeurs nulles de lon- 
gueur LT. 

La routine INIT se trouve aux 
lignes 635-680. 

LT (Longueur Tables) permet de 
dimensionner la table VO et les 
tables de chaînage S() et P(). Les 
lignes suivantes initialisent la 
table vide ainsi que la valeur des 
racines. 

Rappelons que les valeurs des 
racines représentent des indices. 
Ainsi DO (racine Début des trous) 
- 1 veut dire que le premier des 
trous est à la place 1. 

D1 et F1 sont les racines de la 
liste des nombres ; leur valeur 
indique que cette liste ne 
commence nulle part et qu'elle 
est, pour l'instant, vide. 

Et si nous nous 

lancions dans 

la programmation ? 

1) Commandes jugées simples 
(opinion toute personnelle, bien 
sûr !) : ce sont les commandes 
V(oir), L(îster), l(nverse)et F(in). 

La commande V(oir) pourrait 
certainement être programmée de 
façon plus fine. 

Les commandes L(ister) et 
l(nverse) sont claires. C'est la va- 



leur (zéro numérique) du suc- 
cesseur (ou du précédent) qui ar- 
rête le processus. 
2) Les commandes T, A et S. 
T(rouver) Implique : 

Chercheret rendre compte. 
A(ddition) implique : 

Chercherun trou. 
S'il n'y a aucun trou déclarer addi- 
tion impossible. 

Si on trouve au moins un trou 
chercher la position logique du 
nouveau nombre (si on trouve un 
nombre identique, ne poursuivre 
que si l'homonymie est autori- 
sée). 

Supprimer logiquement le trou 
(modification des chaînons suite à 
la suppression). 

Installer physiquement le nouveau 
nombre. 

Ajouter logiquement ce nombre 
(modification des chaînons à la 
suite d'une addition). 
S(upprimer) implique : 

Chercher le nombre (s'il 
n'existe pas, annuler). 
Suppression physique. 

Suppression logique (chaî- 
nons). 

Chercher la place logique du 
nouveau trou. 

Ajouter logiquement le nouveau 
trou. 

Il ressort de cette analyse que 
trois fonctions ont un rôle prépon- 
dérant : 

Chercher, fonction assurée par 
« RECH » ; P 

Addition (ou AJOUT) logique as- 
surée par« PTRADD » ; 
Suppression logique traitée par 
« PTRSUPP ». 
r Ces fonctions doivent être trai- 
tées par des sous-programmes, 
car on y fait appel en plusieurs 
endroits. Il apparaît, en outre, que 
ces sous-programmes auront à 
traiter, suivant le cas, des don- 
nées et donc des variables diffé- 
rentes. En effet, recherche, addi- 
tions et suppressions se font soit 
dans la liste des valeurs, soit 
dans celle des « trous ». 

On est donc amené à « passer 
des paramètres » aux sous-pro- 
grammes. Le procédé est ici le 
suivant : les arguments, fournis 
au sous-programme et restitués à 



l'extérieur, sont traités sous des 
noms de variables propres à celui- 
ci : ici les variables « internes » se 
terminent par la lettre « X ». 

La transmission des arguments 
se fait sur la même ligne que celle 
de l'instruction GOSUB. Par 
exemple le sous-programme ima- 
ginaire : 

100: = = =PROCESS= = = 

110IFUX > BXTHENWX=UX: 

RETURN 

120 IF UX = BX THEN WX=0 : 

BX=BX/2: RETURN 

1 30 WX=BX: RETURN 

140 RETURN 



640 UX=UA : BX=BA : GOSUB 

100 : WA=WX : BA=BX' 

PROCESS 



La programmation de 
RECH, PTRADD et 
PTRSUPP 

La syntaxe d'appel de RECH 
(Recherche) est la suivante : 
nnn RX= ? : DX= ? : FX= ? : 
AX= ? GOSUB yyy 

? = KX: ?=TX: ? = GX' — RECH 
où : 

RX = valeur du nombre, 
DX = racine successeurs (D 
comme Début), 

FX = racine précédents (F comme 
Fin), 

AX = adresse (indice à prendre en 
compte pour l'insertion logique), 
KX = indice, soit du nombre 
trouvé, soit du nombre immédia- 
tement supérieur ou inférieur. 
TX = si non trouvé, et-— 1 si 
trouvé. 

GX = si le nombre cherché est 
logiquement à droite du nombre 
d'indice KX, et = - 1 si à gauche. 
Par exemple, on est en train 
d'exécuter une commande « A ». 
Une première recherche a indiqué 
qu'un emplacement disponible 
(trou) existait en 143. Nous avons 
à insérer le nombre 614. Les ho- 
monymes sont autorisés, donc 
possibles. Supposons que la si- 
tuation avant insertion soit celle 
représentée ci-dessous. 
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L'indice (143) du trou à utiliser 
est dans la variable KO. La valeur 
(6 14) dans R. On écrit : 

nnn RX=R :DX=D1 :FX=F1 
:AX = KO :GOSUB « RECH » 
:K1=KX:T1=TX:G1=GX. 

Les valeurs produites seront : 
K1=92, T1--1 (trouve), GX=0 
(ce qui indique une insertion à 
faire entre « 92 » et son succes- 
seur). 

Nous laisserons le soin au lec- 
teur de décortiquer le sous-pro- 
gramme RECH. Notons cepen- 
dant que le choix du « meilleur » 
sens de recherche (par les suc- 
cesseurs ou les précédents) per- 
met non seulement de minimiser 
le nombre des itérations, mais 
aussi de supprimer le test de non- 
nullité du successeur ou du précé- 
dent. 

Il y a lieu aussi de noter le rôle 
des adresses particulières, AX=0 
etAX=32767. 

Le module PTRADD est appelé 
pour modifier les chaînons en cas 
d'addition. Supposons que nous 
venions de sortir de RECH avec 
les nouvelles valeurs de K 1 et G 1 . 
(Peu importe la valeur de T1, car 
nous supposerons que l'addition 
est autorisée.) 

Procédons d'abord à la mise en 
place physique : 
nnnV(KO)=R 

Appelons H (comme Haut), l'in- 
dice du nombre successeur du 
nombre R à insérer et B (Bas) celui 
de son précédent. 

Si G 1 =— 1 on se situe à gauche 
etdoncH = K1 etB = P(K1). 

Sinon on a (nous laissons au 
lecteur le soin de faire le dessin 
correspondant} : B = K1 et H=S 
(Kl). 

, Cette question des variables in- 
termédiaires H et B réglée, on 
peut écrire : 
S(KO)=H 
P(KO) = B 

ce qui met à jour les pointeurs du 
nouveau nombre, et : 
S(B)=KO 
P(H)=KO 

qui raccorde les voisins au nou- 
veau venu. 



La valeur K1 est connue dans le 
module sous l'appellation KX, 
celle de KO sous celle de NX. On 
retrouve la programmation effecti- 
vement présentée. 

Passons maintenant 

à la modification 

des valeurs des racines 

Lorsqu'il y a insertion ou sup- 
pression d'une valeur « racine » 
celles-ci (ou l'une de celles-ci) 
sont à modifier. Le lecteur inté- 
ressé notera l'utilisation qui est 
faite des indices des tables de 
chaînage S() et P(). 

Il faut remarquer que les va- 
leurs de S(0) et/ou P(0) sont dans 
ces cas particuliers transférées 
dans DX (et donc dans DO, D1, 
D-.) et/ou FX (et donc dans FO, 
F1, F...) et que S(0) et/ou P(O) 
sont immédiatement remis à zéro. 

Nous ne dirons rien de 
PTRSUPP, plus simple que 
PTRADD. 

En fait nous ne parlerons plus 
de la programmation, si ce n'est 
pour dire un mot de l'utilisation 
des variables entières comme va- 
riables logiques. Il s'agit d'ex- 
pressions comme : IF HYTHEN... 

La valeur qui correspond à 
FAUX est (16 bits éteints). Si 
HY n'est pas nul, l'expression ci- 
dessus se comportera comme si 
HY était VRAIE. 

Donnons à HY la valeur 1 et à 
JZ la valeur 2. Faisons IF HY AND 
JZTHEN... 

L'expression HY AND JZ est 
fausse (nulle). Nous pensons 
donc qu'il vaut mieux s'en tenir en 
conséquence à - 1 comme cons- 
tante VRAI. Dans le cas du pré- 
sent programme il aurait proba- 
blement mieux valu initialiser 
deux variables FA = 0, VR=-1 
dansINIT. 

Divers développements sont 
possibles. 
1) Améliorations. 
Affichage. 

Routine RECH ; l'améliorer d'une 
façon générale ; choisir le sens de 
lecture en fonction non pas de la 
moyenne mais de la médiane. 
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Mettre en place des compteurs 
donnant le nombre de places 
libres, le nombre de nombres 
(somme des 2 = LT), etc. 

2) Utilisation des listes doubles. 
On peut les employer pour tenir 
des index correspondant à tel ou 
tel critère de tri. Mais la recherche 
est toujours relativement longue, 
car elle est « séquentielle » (elle 
porte en moyenne sur le quart de 
la liste, lorsque le choix du sens 
de recherche a pour base une 
comparaison avec l'élément « mé- 
dian »}. 

On peut l'utiliser aussi comme 
« magasin automatique » de don- 
nées : supposons que nos nom- 
bres soient maintenant des numé- 
ros d'articles et que nous ayons 
environ deux cents clients pou- 
vant avoir en moyenne vingt arti- 
cles en commande. Cela fait donc 
environ quatre mille enregistre- 
ments. 

Si nos clients sont numérotés 
1, 2, 3.... 200, et si nos « raci- 
nes » sont des variables indicées, 
nous avons « immédiatement » 
accès à la sous-liste du client 45, 
car ses racines sont D (45) et P 
(45). La recherche séquentielle 
dans la sous-liste elle-même est 
alors de très courte durée. 

On peut aussi l'employer 
comme méthode générale d'ac- 
cès : nous pouvons traiter des 
indicatifs par HASH-CODE pour 
obtenir un nombre qui soit l'indice 
des racines D() et F() à utiliser. 
Tous les nombres ayant les 
mêmes racines seront dans une 
même sous-liste et une lecture 
séquentielle (chaînée) permettra 
d'accéder à l'indicatif souhaité. 

Nous ne nous étendrons pas 
davantage sur cette dernière pos- 
sibilité. Nous la citons parce que 
c'est un cas de gestion de fichier 
sans réorganisation périodique 
nécessitée par les mises à jour. 

Soulignons l'aptitude des listes 
doubles à la gestion d'emplace- 
ments vides mis en commun. 

Cette aptitude peut être utilisée 
aussi bien pour la gestion d'em- 
placements physiques (par exem- 
ple dans les magasins automati- 
ques de produits finis) que pour 
celle des fichiers informatiques. 



Bernard Besse 
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La plupart 

des petits 

systèmes 

individuels 

actuels 

disposent 

de fichiers 

permettant 

un accès 

aux données 

à partir d'un 

numéro 

d'enregistrement 

physique. 

Or, en particulier 

dans les 

applications 

de gestion, 

l'utilisateur 

désire accéder 

aux informations 

à partir 

d'une clé 

alpha-numérique 

(un nom ou un code 

par exemple), 

et de son 

numéro 

d'enregistrement. 

On peut, bien sûr, 

rechercher 

une information 

dans un fichier 

à partir d'un nom 

ou d'un code, 

en lisant 

séquentiellement 

tous les 

enregistrements. 

Mais compte tenu 

du temps d'accès 

à chaque 

enregistrement 

(de l'ordre de 

100 ms), 

l'information 

cherchée n'est 

retrouvée 

qu'après 

plusieurs secondes 

pour un fichier 

de taille moyenne. 



-disquettes- 



Une table d'index 

pour un accès 

plus direct 



L'utilisateur se trouve donc 
confronté au problème suivant : 

Comment établir la correspon- 
dance entre les clés d'accès utilisa- 
teur et le numéro d'enregistrement 
où sont rangées, les informations, 
ceci en limitant au maximum le 
nombre d'accès au disque et en ré- 
duisant ainsi les temps d'accès ? 

Deux principes sont générale- 
ment utilisés : 

Soit le Hash-Codequl établit la cor- 
respondance par un calcul d'a- 
dresse de rangement effectué sur la 
clé. 

Soit l'accès indexé qui établit la cor- 
respondance à l'aide d'une table. 

Si la première méthode est plus 
simple dans son principe, elle est 
aussi plus coûteuse en place disque, 
du moins avec les fichiers classi- 
ques. C'est donc l'accès indexé que 
nous étudierons dans cet article. 

De nombreuses méthodes exis- 
tent, plus ou moins simples à pro- 
grammer. Leur choix se fait en 
fonction des exigences de l'applica- 
tion et des particularités des fi- 
chiers utilisés. 

Voici les principales, de la plus 
simple à la plus complexe : 
. L'accès indexé simple: on utilise 
une table en mémoire centrale, 
constituée en début de travail à par- 
tir du fichier. 

. L'accès indexé avec sauvegarde 
sur disque de la table d'index : la ta- 



ble des index, chargée en début de 
programme à partir du disque, est 
stockée sur disque en fin de travail 
de façon à permettre une réutilisa- 
tion rapide lors d'un travail ulté- 
rieur. 

. L 'accès indexé avec index continu 
en ordre croissant sur disque. 
. L'accès indexé avec index à 2 ni- 
veaux. 
Examinons-les successivement. 

Accès indexé avec table de corres- 
pondance en mémoire centrale 

Dans la version la plus simple de 
l'accès indexé, la table de corres- 
pondance est résidente en mémoire 
centrale et se constitue en début de 
travail par la lecture séquentielle de 
tout le fichier (schéma ci-dessous). 

Lorsque cette table n'est pastriée, 
sa consultation est nécessairement 
séquentielle, mais relativement ra- 
pide si les clés ne sont pas trop 
nombreuses. Il suffit ensuite d'un 
accès disque pour retrouver l'enre- 
gistrement associé à la clé. 

Mais plusieurs dizaines de se- 
condes sont nécessaires à la consti- 
tution de la table si le fichier a une 
taille importante. 

Aussi cette méthode n'est-elle 
guère exploitable dès que le nombre 
d'enregistrements physiques du fi- 
chier devient important, au-delà 
d'une centaine. Cependant, elle a 
l'avantage d'être simple à program- 
mer, et aussi celui de s'adapter 
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aisément à une application exis- 
tante par l'appel de 2 sous-pro- 
grammes : un sous -programme de 
création de la table et un sous-pro- 
gramme de recherche dans la table. 

Si la table d'index est en ordre 
croissant, la recherche s'y fait par 
dichotomie et devient ainsi plus ra- 
pide. Voir le programme de re- 
cherche dichotomique page 1 1 5. 

Il est possible de ne stocker dans 
la table d'index que les seules pre- 
mières lettres des clés. Ceci contri- 
buera à réduire la place mémoire 
occupée, et à diminuer les temps de 
comparaison de la clé cherchée 
avec les clés de la table. Mais en cas 
d'identité entre les premières let- 
tres de différentes clés, plusieurs 
accès disques seront éventuelle- 
ment nécessaires. 

Lorsque les enregistrements phy- 
siques (repérés par un numéro) 
comportent plusieurs enregistre- 
ments logiques ayant chacun leur 
clé, on peut coder dans la table d'in- 
dex l'ensemble du numéro physique 
et de la position dans l'enregistre- 
ment physique de la façon sui- 
vante : 

X = (No physique*NLOG) + POSI- 
TION 
où NLOG représente le nombre 
d'enregistrements logiques par en- 
registrement physique. Le déco- 
dage se fera par : 
No physique = INT (X/NLOG), 
POSITION = X-INT (X/NLOG) 

Voici un programme d'accès in- 
dexé avec table en mémoire cen- 
trale (ci-çontre, en haut). La mise à 
jour de la table en temps réel, en cas 
d'ajout de clé, n'a pas été program- 
mée sur cet exemple. C'est donc 
seulement à la prochaine constitu- 
tion de la table, c'est-à-dire lors du 
prochain travail, que les clés ajou- 
tées y seront présentes. 

Accès indexé avec sauvegarde sur 
disque de la table d'index 

Une sauvegarde de la table d'in- 
dex dans un fichier et sa relecture 
en début de session de travail évi- 
tent la perte de temps de sa consti- 
tution. La sauvegarde de la table 
d'index doit être faite à chaque 
création de clé et non pas seule- 
ment en fin de session. 

En effet, sans cette sauvegarde, 
si une session était interrompue, 
l'index sur disque ne serait plus à 
jour pour les sessions suivantes. 

Si l'on a choisi d'avoir cette table 
en ordre croissant afin d'y faire une 
recherche plus rapide par dichoto- 
mie, on doit bien sûr, lors d'une 
création de clé, insérer celle-ci dans 
la table après avoir décalé toutes les 
clés en aval de l'insertion. 
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Index continu sur disque en ordre 
croissant 

La présence en mémoire centrale 
d'une table d'index de taille impor- 
tante peut être évitée de la façon 
suivante : les clés sont rangées en 
ordre croissant dans un fichier in- 
dex et une table d'index de taille ré- 
duite, en mémoire centrale, 
contient la première clé de chaque 
enregistrement du fichier index ; on 
sait ainsi, lorsqu'on recherche une 
clé, sur quel enregistrement du fi- 
chier index elle est située. 

Après avoir retrouvé la clé dans le 
fichier index, on accède à l'enregis- 



trement associé à cette clé. Deux 
accès disques ont donc été néces- 
saires pour accéder à l'enregistre- 
ment cherché. 

De façon à maintenir le fichier in- 
dex en ordre croissant, chaque nou- 
velle clé est insérée directement à 
sa place après avoir décalé toutes 
les clés en aval de l'insertion. Aussi 
le temps nécessaire pour un ajout 
de clé peut-il être long lorsque le 
nombre de clés devient important 
(quelques secondes). Si on consi- 
dère que les ajouts de clés sont gé- 
néralement beaucoup plus rares 
que les consultations, ceci est ac- 
ceptable. 



Notons que le temps d'insertion 
des clés sera d'autant plus court que 
les enregistrements du fichier in- 
dex seront plus longs (mais on per- 
dra alors de la place mémoire). 

Index 2 niveaux 

Plutôt que d'insérer des clés dans 
un fichier index continu, on peut al- 
louer les enregistrements de cet in- 
dex dynamiquement. A la création 
de l'index n existe qu'un index de 
niveau 0. Ce niveau d'index peut 
être éventuellement situé en mé- 
moire centrale. 

Un index de niveau 1, constitué 
dynamiquement au fur et à mesure 
des ajouts de clés, doit être vu 
comme un index continu en ordre 
croissant. 

Lorsqu'une insertion est faite 
dans un bloc (enregistrement) plein 
suivi d'un autre bloc plein, on alloue 
un nouveau bloc qui reçoit la der- 
nière clé du premier bloc plein. La 
« continuité » de l'index 1 est assu- 
rée grâce à l'index 0. Tout se passe 
comme si nous avions inséré dans 
un index continu des trous qui se- 
ront utilisés lors d'insertions ulté- 
rieures de clés. 

Ainsi il n'y a de décalages de clés 
qu'entre 2 blocs tout au plus. 
Pour des enregistrements de 256 
caractères, l'index pourra contenir 
jusqu'à 40 X 40 = 1 600 clés. 

Jacques Boisgontier 
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■l'ordinateur prof- 




la fin du déclin: 

l'ordinateur 
retrouve 

votre latin 



Qui ne se souvient de la chanson de Jacques 
Brel «Rosa Rosa Rosam... Rosarum Rosis Ro- 
sis » ? Cet énoncé faisait alors apparaître le latin 
comme une discipline bien plus avenante que ne 
le laissaient supposer certains énormes diction- 
naires... Car si le latin est dit « langue morte ». il 
reste cependant bien vivant en de nombreux en- 
droits ainsi qu'en témoigne cette rencontre avec 
l'informatique individuelle. 







l^~~* 


— 






/f£Q, JOVEM ! MALVS\ 
' PROâftAMMVS ETIAM 1 
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Après avoir beaucoup souffert 
avec l'apprentissage des cinq décli- 
naisons que comporte le latin, on se 
rend compte qu'elles obéissent fi- 
nalement à des règles très strictes. 
Il ne reste alors qu'à franchir en- 
suite le pas qui consiste à se dire 
« mais alors pourquoi ne pas l'auto- 
matiser». On peut obtenir ainsi un 
programme qui à partir du nomina- 
tif et du génitif d'un mot en donne la 
déclinaison. 

Ces deux renseignements sont 
les seuls dont le programme ait a 
priori besoin pour fournir l'ensem- 
ble de la déclinaison ainsi que son 
numéro (première, troisième...). 
Néanmoins, il peut y avoir doute. 
Dans le cas de la troisième déclinai- 
son par exemple, le programme de- 
mande alors le genre du mot, puis, à 
partir de ce renseignement, déter- 
mine s'il s'agit d'un impari (ou pari} 
syllabique avant de fournir la décli- 
naison. 

L'intérêt de ce programme est 
donc qu'il traite effectivement tous 
les cas avec une information de dé- ^ 
part minimum. On trouvera ci- ï 
contre la liste ainsi qu'un exemple P 
d'exécution. 

Qui a dit que le latin était mort? % 
Fluctuât nec mergitur I | 

Alain Richard | 
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liste de programme sur Pet 


exemple d'exécution 



l'ordinateur prof- 



en classe 

comptez-bien sur votre ordinateur 



En classe de cinquième, le programme de mathé- 
matiques prévoit l'étude des nombres entiers. 
L'enseignant est amené à introduire de nom- 
breuses notions nouvelles : diviseurs et multiples 
d'un nombre, diviseurs communs et multiples 
communs de deux nombres, et finalement nom- 
bres premiers et factorisation première d'un nom- 
bre. Cette dernière est une notion-clé lors de la re- 
cherche de tous les diviseurs d'un nombre ou lors 
du calcul du plus grand diviseur commun (PGDC) 
ou du plus petit commun multiple non nul 
(PPCM). Tous ces problèmes sont résolus par des 
règles de calcul assez simples. Pour l'élève, la 
seule façon de les assimiler est de faire de nom- 
breux exercices. L'enseignant, lui, n'a pas à refaire 
tous ces calculs ; seul le résultat j'intéresse. Quoi 
de plus simple alors que d'écrire le petit pro- 
gramme en BASIC présenté ici ? 
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Avant d'en arriver au programme 
proprement dit, rappelons quelques 
notions fondamentales. 

Un nombre premier est un nom- 
bre qui admet comme seuls divi- 
seurs 1 et lui-même . 

Par exemple, les diviseurs de 7 
sont 1 et 7 donc 7 est premier ; les 
diviseurs de 9 sont 1 , 3 et 9 donc 9 
n'est pas premier. 

La factorisation première d'un 
nombre est la décomposition de ce 
nombre en un produit de nombres 
(ou facteurs) premiers, soit par 
exemple: 100= 2*2*5*5 ; 40 = 
2*2*2*5 

Rappelons à l'aide d'un exemple 
comment on trouve le PGCD et le 
PPCM de deux nombres. 
. D'abord il faut décomposer ces 
nombres en facteurs premiers. 
. Le PGCD est le produit des fac- 
teurs communs aux deux nombres : 
PGCD (40,100)= 2*2*5- 20 



. Le PPCM est le produit des fac- 
teurs apparaissant au moins une 
fois dans les deux nombres : PPCM 
(40,100)- 2*2*2*5*5= 200. 

Il est utile de remarquer que 
40*100= PGCD (40,100) * PPCM 
(40, 1 00) 

La méthode ci-dessus est celle 
qui est enseignée, car c'est la plus 
simple, mais ce n'est pas la plus ra- 
pide. Considérons l'exemple sui- 
vant. 

100=40*2 + 20 
40 = 20 * 2 + 

On divise le grand nombre (100) 
parle petit (40). Tant que le reste de 
la division n'est pas nul, on divise le 
diviseur par le reste. Lorsque le 
reste est nul, alors le PGCD est le 
dernier diviseur obtenu. 

Autre exemple :PGCD(26,84)=. 

84=26*3+6 

26 =6* 4+2 

6-2*3+0 



PGCD (26,84) = 2 

Ayant le PGCD on a immédiate- 
ment le PPCM 
PPCM (a,b) = a*b/PGCD (a,b) 

Maintenant nous sommes prêts à 
aborder le programme proposé. 

La partie centrale du programme 
qui comprend les lignes 100-250, 
est une boucle infinie. En fonction 
du problème choisi, l'ordinateur 
continue avec le sous-programme 
correspondant (ligne 220). Ensuite, 
il recommence dès le début ou avec 
le même sous-programme (230- 
250). 

Les sous-programmes 1 000- 
2 250 indiqués à la ligne 220 sont 
en fait des routines abordant le pro- 
blème. Les calculs sont effectués 
dans les sous-programmes com- 
mençant aux lignes 2 600, 2 800, 
2 900, 3 100 et 3 200. 

Remarquons que ces sous-pro- 
grammes sont les plus importants 
et cependant ils représentent 
moins d'un quart du programme. 
D'autre part il ne faut pas sous-esti- 
mer le rôle des calculs préliminaires 
dans les routines 1 000-2 250. Ils 
permettent de rendre les routines 
de calcul beaucoup plus efficaces. 

Par exemple, à la ligne 1 120 on 
vérifie que le nombre est impair, si- 
non il est inutile de rechercher dans 
la routine 2 600 s'il est premier. 

L'adaptation à d'autres ordina- 
teurs ne présente que peu de diffi- 
cultés. Le programme utilise sou- 
vent la fonction INKEY $. Celle-ci 
est uniquement utilisée par commo- 
dité et peut donc être remplacée par 
INPUT. 

Finalement PRINT @ 128, écrit ^ 
en haut de l'écran et PRINT @ 832, ? 
écrit en bas de l'écran. g 

Si vous cherchez les diviseurs - 
d'un nombre qui en a plus de 100, il J 
vous faudra modifierla ligne lOOen | 
fonction de vos besoins. J 

Jean-Paul Zanter % 
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Ontiquité binaire : 

la multiplication égyptienne 



: 



Imaginez une société ne 
connaissant que la table 
de multiplication par 
deux. Peut-elle dans ces 
conditions effectuer le 
produit de deux nom- 
bres quelconques? 
L'histoire de l'Egypte 
ancienne nous montre 
brillamment que ce pro- 
blème peut être résolu 
sans difficultés. 



Nous désirons donc multiplier le 
nombre X par le nombre Y (X et Y 
étant entiers). 

En partant de X (de rang n égal à 
1), il faut tout d'abord dresser une 
première colonne de nombres, tels 
que chacun d'eux soit égal à la par- 
tie entière du rapportXn-1 /2.Pour 



MULTIPLICA 


J!)lî = 

234 
117 
5i3 

29 

14 

7 

3 

1 


234 




lULïIPLICfVTEUR = 


345 


690 




27G0 




11040 
22080 
44160 




30730 





obtenir te 3 e nombre X 3 on partira 
donc du deuxième X 2 et on aura 
X 3 = INT (X^/2). Restant dans des 
multiplications de nombres entiers 
positifs il suffit de s'arrêter quand 
Xrt vaut 1 . 

Puis en partant de Y (de rang n 
égal à 1), on dresse une deuxième 
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colonne de nombres, tels que cha- 
cun d'eux soit égal au double de ce- 
lui qui le précède. Pour des raisons 
de présentation, on affichera ou on 
imprimera sur la même ligne les 
nombres des deux colonnes ayant 
même rang. 

On peut maintenant effacerfsup- 
primer si on en tire une liste) les 
nombres de la deuxième colonne 
pour lesquels les nombres de même 
rang de la première colonne sont 
pairs. 

Il ne reste plus qu'à effectuer la 
somme des nombres restants de la 
deuxième colonne et alors, miracle, 
cette somme est égale au produit 
recherché. Aucune alchimie n'a 
présidé à l'obtention de ce résultat : 
pourquoi ne reprendriez vous pas 
vous-même la démonstration ma- 
thématique ? 

Adapter ce programme sur votre 
ordinateur préféré ne posera aucun 
problème, les ordres PRINT® cor- 
respondant uniquement à une pré- £j 
sentation agréable sur l'écran, t 
Quant à l'adapter pour déchiffrer p 
les hiéroglyphes, c'est bien sûr une r! 
autre histoire... § 



Didier Heroux | 
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à vos postes 

pour la multiplication 

n'ayez plus peur des facteurs 



Le jeu constitue la meilleur façon d'appren- 
dre. Plutôt que de réciter en ânonnant 1X1 
= 1, 1 X 2 = 2... pourquoi ne pas rendre 
attrayant l'apprentissage de tables de multi- 
plication ? Ce petit programme s'y efforce : 
entraînez-vous au calcul mental. 



Attention ! Il n'est simple et fa- 
cile que dans la forme présente où 
les multiplications ne vont que jus- 
qu'à 9 X 9. Il suffit de changer 
cinq lignes pour traiter des multi- 
plications jusqu'à 20 X 20 ou 30 
X 30... mais avant ces développe- 
ments, quel est le principe du pro- 
gramme ? 

Il nous invite à jouer avec lui 
pour donner la bonne réponse à 
des multiplications qui deviennent 
de plus en plus compliquées au fur 
et à mesure que vous progressez. 
De plus en plus compliquées si 
vous avez répondu correctement, 
car si vous vous trompez, la sanc- 
tion est simple : une faute et vous 
restez au même niveau, deux 
fautes ou plus et vous connaissez 
la déchéance de devoir repartir à 
un niveau inférieur. Pour arriver à la 
fin du programme, il vous faudra 
donc arriver à donner trois bonnes 
réponses au niveau le plus élevé. 

Jusque-là rien de bien compli- 
qué, mais on peut corser un peu le 
jeu en considérant que vous ne 
disposez que d'un certain temps 
imparti pour donner la bonne ré- 
ponse. Si vous dépassez ce temps, 
le programme considère impitoya- 
blement que vous avez fait une 
faute ; tout cela est bien arbitraire, 
me direz-vous. Oui, bien sûr, mais 
vous aurez quand même le choix 
de votre temps de réponse entre 5 
et 15 secondes. Et si 1 X 1 en 
15 secondes est simple, il n'en est 



pas de même pour 17 X 18 en 
5 secondes, par exemple. 

Voilà donc les règles du jeu que 
vous devrez suivre. Pour parvenir à 
ce résultat, le programme est 
construit selon les principes de la 
programmation structurée : le pro- 
gramme principal (plage de numé- 
ros de lignes de 100 à 990) ap- 
pelle successivement un sous- 
programme de début (lignes 1 000 
à 1 990), un sous-programme 
principal (lignes 2 000 à 2 990) et 
un sous-programme de fin (lignes 
3 000 à 3 990). La variable A est 
l'indicateur de fin de traitement : 
tant qu'elle a pour valeur zéro, on 
exécute le traitement principal ; 
quand elle prend la valeur 1 , on va 
exécuter le traitement de fin et on 
arrête le programme. Cette varia- 
ble ne prendra la valeur 1 que 
lorsque le programme aura vu que 
vous avez donné trois bonnes ré- 
ponses. Le nombre de bonnes ré- 
ponses est mémorisé dans la va- 
riable P ou B au niveau le plus 
élevé. Cette dernière variable varie 
donc de 1, niveau le plus faible, à 
3, niveau le plus élevé, pour ne 
passer à 4 que lorsqu'il y a eu trois 
bonnes réponses au niveau 3. 

Le niveau de difficulté d'une 
multiplication est mémorisé dans 
le tableau D, tableau à deux di- 
mensions (multiplicande et multi- 
plicateur) : les valeurs du tableau 
sont donc 1 , 2 ou 3. 

Chaque question est posée avec 



un multiplicande - variable Y - et 
un multiplicateur - variable Z - 
choisis au hasard {variables X et 
C). La réponse que vous donnerez 
sera stockée dans la variable W. 

On mémorise dans le tableau E 
les résultats des multiplications 
précédemment posées, de façon à 
ne pas avoir trois multiplications 
ayant le même résultat lors d'une 
même série de questions. 

Le temps alloué pour la réponse 
est stocké dans la variable T I et 
contrôlé, a l'aide des variables U et 
V, valeurs de l'horloge interne 
avant et après la réponse. La varia- 
ble G indique par la valeur 1 que le 
temps a été dépassé 

Si maintenant vous désirez ren- 
dre ce programme plus compliqué, 
posant par exemple des questions 
jusqu'à 20 X 20 ou 30 X 30 il ne 
vous reste qu'à modifier : 
. les lignes de DATA - après 
10 000 : mettre pour chaque mul- 
tiplication, l'indication du niveau 
de difficultés de 1 à 3, 
. les lignes 1270 et 1290 : rem- 
placer 9 par 20 ou 30, 
. les lignes 2110 et 2140 : rem- 
placer 10 par 20 ou 30. 

Une autre façon d'utiliser ce 
programme consiste par exemple à 
s'en servir comme d'un répétiteur 
d'anglais ou d'allemand en mémo- 
risant en DATA ou dans un fichier 
les mots anglais ou allemands, et 
leur traduction en français puis en 
les choisissant de la même ma- 
nière au hasard. g 

En attendant, bon courage avec -S 
les multiplications. Personnelle- 2 
ment, arriver à résoudre 23 X 27 ; 
en 5 secondes est un pari que je ï 
me garde bien de prendre. | 



Jean-Pierre Brunerie 
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Liste du programme sur PET 
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2120 IF ï-0 T 
2130 S=aN=ltS£4 




-colles- 



testez vos connaissances 
en géographie 






Arras. Chef-lieu ? Pas-de-Calais... Cette façon 
d'apprendre la géographie se pratiquait, il y a 
maintenant de nombreuses années, pour le cer- 
tificat d'études primaires. Apprendre en jouant, 
et de plus sur un ordinateur (ZX-81 en l'occur- 
rence) ne procure-t-il pas plus de plaisir ? 
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Pour un enfant, pouvoir agir sur 
une image représentée sur un 
écran de télévision est très stimu- 
lant, Le passage d'une informa- 
tion se fait très simplement, en 
douceur, au propre rythme de 
celui qui interagit avec le pro- 
gramme présent dans l'ordina- 
teur. 

Le programme que nous vous 
proposons teste la connaissance 
de la situation de villes sur la carte 
de France. Cette carte se dessine 
sur l'écran et un texte défile expli- 
quant le jeu. Un plot clignote à 
l'emplacement d'une ville et deux 
noms numérotés s'inscrivent. 



Transportez-vous sur 
votre ZX-8 1, en Ethiopie, 
au Kenya, en Arabie 

L'ordinateur demande alors la 
réponse, la contrôle et donne son 
verdict : « correct » ou « faux », 
puis affiche le score. En cas de 
mauvaise réponse, le nom de la 
ville s'inscrit. 

A la fin du jeu, soit après vingt 
questions, l'ordinateur commente , 
le score et invite à rejouer. 

S'il peut paraître évident que ; 
Bastia ne se trouve pas en Breta- : 
gne, situer Tours par rapport au 
Mans peut être plus difficile. De 
plus, vous pouvez aisément modi- 
fier le programme et ajouter des 
noms de villes moins connues à la 
liste, pour accroître la difficulté. 



Individuel 407 
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Programm e de géographie (dé but) 

1 REM GEOGRAPHIE.- LO FRHNCE 

5 REM (CI RENE LflGRCHE 

10 PRINT TRB 12; CHRÎ 6; CHRÎ 3.; 

CHR» 4- 

20 PRIHT TRB 11; CHR* 133; TRB 1 
4,CHR$ 134; CHRJ 4. 

25 REM 

30 PRIHT TRB 11; CHR* 133;TRB 1 
5, CHR* 134j CHR* 131 

3S REM 

4U PRIHT TRB 6; CHR* 133; CHR* 1 
32; TRB 9; CHR* 135; CHR* 3; CHR* 1; 
TRB 17; CHR* 13*; CHR* 131 

4.5 REM 

5» PRIHT TRB 6; CHR* 2; CHR* 6; C 
HR$ 3; CHR* 131; CHR* 1; TRB 19; CHR 
S 3; CHR* 134.; CHR* d. 

55 REM 

50 PRIHT TRB 2; CHR* 131; CHR* 1 
31; CHR* 6, CHR* 131; CHR* 131; CHR* 
5; TRB El! CHR* 133 

55 REM 

70 PRIHT TRB 2; CHR* 129;TRB 21 
: CHR* 133 

75 REM 

30 PRINT TRB 2; CHR* 2; CHR* 3; C 
HR* 131, TRB 21; CHR* 5 

B5 REM 

90 PRINT TRB 5, CHR* 134-;CHR* 4- 
: TRB 221; CHR* 135; CHR* 1 

95 REM 

100 PRIHT TRB 5, CHR* S; TRB 19, C 
HP* 135, CHR* 1 

105 REM 

110 PRIHT TRB 6; CHR* 134.; CHR S 4- 
, TRB 19; CHR* 134. 

115 REM 

120 PRIHT TRB 7; CHR* 133; TRB 19 
. CHR* 2; CHR* 134. 

125 REM 

130 PRIHT TRB 7; CHR* 133; TRB 20 
; CHR* 133 

135 REM 

14-0 PRIHT TRB 7, CHR* 6; CHR* 4-; T 
RB 20; CHR* 13 5, CHR* 1 

14-5 REM 

150 PRIHT TRB 7 ; CHR S 5; CHR* 1, T 
=18 20; CHR* 134- 

155 REM 

1S0 PRINT TR3 7 , £-Hïi% 5; TRB 20: C 
HR* 133; TRB 24.; CHR* 135 

16S REM 

170 PRINT TRB 7 CHR* 5, TRB 21; C 
HR* 132;TRB 23, CHR* S, CHR* 132 

175 REM 

ISO PRIHT TRB 6;CHRS 135;CHRJ 1 
; TRB 21; CHR* 6, TRB 23, CHR* 5; CHR 
S 133 

135 REM 

190 PRINT TRB S, CHR* 133; TRB 14 
.CHR* 135, CHR* 6; CHR* 3; CHR* 3; C 
HR* 134., CHR* 4-, CHR* 6; TRB 23; CHR 
S 134-; CHR* S 

195 REM 

200 PRINT TRB S; CHR* 2; CHR* 3, C 
HR* 134-, CHR* 131; TRB 14-; CHR* 7:T 
R6 19, CHR* 2; TRB 24-, CHR* 1 

205 REM 

210 PRINT TRB 10; CHR* 3, CHR* 3; 
CHR* 131, CHR* 131, CHR* 130 

215 REM 

S00 PRINT RT 1.0, "MaïaSEEHl" ■ Tfl 
B 22; "GEOGRAPHIE" ; TRB 22; "====== 

1000 PRINT RT 21 ,0, "RPPUYER SUR 
UNE TOUCHE" 

1005 IF IMKEY*="" THEH GOTO 1005 
10 10 LET R*= "**********#*#****** 
*************t**BOM,JOUR*#**«**#* 
* * S ************ +UOIC- 1 LR CARTE D 
E FRONCE , UN POINT UA CLIGNOTER 5 
UR L ECRAN ET £ NOMS CE U IL LE 5 U 
ONT APPARAITRE EN BAS DE L IMAGE 

H'JEC CHACUN UN NUMERO , REPONDEZ 
PAR LE NUMERO CHOISI ET L ORDINA 
TEUR CONTROLERA UOTRE REPONSE, . . 

ATTENTION, ETE5-UOU5 PRE 

"T T (OUI /NON} " 

10 15 FOR N=l TO LEH A* -31 

1020 PRINT AT 21,0; A* (N TO N+31) 

1025 FOR P = l TO 2 

1030 NEXT P 

103S NEXT N 

1060 IHPUT Z* 
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Vous pouvez aussi imaginer de 
transposer le programme pour un 
autre pavs. Etats-Unis, Kenya, 
Ethiopie..., pour le plus grand 
plaisir des aventureux... 

Vous constaterez peut-être 
alors que le score réalisé par un 
adulte sera bien différent du score 
qu'il aura obtenu avec la carte de 
France ! 

Utilisez la mémoire 
visuelle de 
vos enfants 

Les lignes 10 à 210 permettent 
de dessiner te contour de la 
France. Chaque ligne de PRINT 
correspond à l'impression d'une 
des vingt et une lignes de l'écran, 
afin de diminuer les risques de 
mauvaise interprétation des ca- 
ractères à imprimer. Cependant, 
disposant de la liste, vous pou- 
vez, au lieu d'écrire par exemple 
$3, mettre son équ ivale nt graphi- 
que, c'est-à-dire " r^™1 ", ce qui 
accélérera l'affichage et dimi- 
nuera l'encombrement en mé- 
moire. De même, vous pouvez 
supprimer les REM qui ne sont là 
que pour augmenter la lisibilité du 
programme. 

La ligne 500 donne le titre du 
jeu et les lignes 1000 à 1005 
invitent à jouer. Quant aux lignes 
1010 à 1035, elles initialisent 
dans la variable A$ la présenta- 
tion du jeu et font défiler, sur la 
ligne 2 1 , ce texte de droite à gau- 
che en s'arrêtant sur la question 
« êtes-vous prêts ? » (oui/non). 
La boule P règle ce défilement. 

Aux lignes 1060 à 1071, la 
question est posée et contrôlée. 

Les lignes 1075 à 1235 défi- 
nissent le dimensionnement d'un 
tableau F$, dont chaque élément 
contiendra le nom d'une ville. 
L'originalité est la présence, dans 
les quatre premiers caractères du 
groupe, des deux numéros 
de deux chiffres correspondant 




l 



à la position du plot de la vill 

La ligne 1245 initialise le score 
S et la ligne 1250 demande la 
boucle N pour vingt questions. 

Puis les lignes 1255 à 1280 
calculent le numéro de deux villes, 
les coordonnées x et y de la pre- 
mière et la positionnent sur la 
carte. 

Les lignes 1282 à 1287 don- 
nent l'ordre d'écriture du nom de 
la ville. 

Aux lignes 1290 à 1305, la 
boucle P fait clignoter le plot. 

Les lignes 1310 à 1335 de- 
mandent la réponse, la contrôlent 
et affichent « faux » ou « correct », 
puis les lignes 1340 à 1345 cal- 
culent et affichent le score. 

Dans le cas d'une mauvaise ré- 
ponse, le ligne 1360 donne la 
bonne. Les lignes 1372 à 1375 
effacent le plot et autorisent le 
retour à la ligne 1 250. 

Les lignes '1380 à 1390 don- 
nent un commentaire sur le score, 
puis les lignes 1405 à 1420 invi- 
tent à redémarrer le jeu. 

Remarques : les boucles P 
(lignes 1350-1355, 1365-1370 
et 1395-1400) déterminent le 
temps de pause. 

Le nombre de villes est ici de 
trente-deux, mais il est possible 
d'avoir plus de noms, en n'ou- 
bliant pas de modifier la valeur 
trente-deux des lignes 1075, 
1 255 et 1 260, et en déplaçant le 
reste du programme. 

Développer les connaissances 
de vos enfants en utilisant au 
mieux leur mémoire visuelle, tout 
en leur permettant une interac- 
tion, est une grande voie de l'in- 
formatique qui se développera in- 
tensivement dans les années à 
venir. Et pourquoi pas pour vous ? 

René Lagache 
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Programme de géographie (fin) 




1055 


IF Z$«l}s"0" THEN GOTO 1075 






107O 


IF Z*tlJ="N" THEN GOTO 1010 






1071 


GOTO 1060 






1075 


DIM F* (32, 15) 






1C8Q 


LET F* tl» ="2633PfiRIS" 






1085 


LET F* (2) ="2235ROUEN" 






1090 


LET F* (3) ="2739RRRHS" 






1095 


LET Fî(4) ="1330REMNES" 






1100 


LET F* (S) ="14.25N«NTES" 






1105 


LET F* (Si ="1713SORDERUX" 






1110 


LET F*(7) ="H307TOULOUSE" 






1115 


LET F* fS) ="0631BREST" 






1120 


LET F*<9) = "34.17LYON" 






1125 


LET F* (10} ="3707MHR5EILLE" 






1130 


LET F* fil) ="4.109NICE" 






1135 


LET F* f 12} ="3S26BESRNCDN" 






114.0 


LET F* (13J ="*2325TRRSBOURG" 






114-5 


LET F* (14-.* = "lÇt0STRRBES" 






1150 


LET F*(15) ="3114-LE PUY" 






1155 


LET F((16)5"3*25BOURGE5" 






1160 


LET F* (17) ="1027TOURS" 






1165 


LET F* (13) ="2036LE HRURE" 






1170 


LET FJ1191 ="3717CHfiMBERY" 






1175 


LET F* (20) ="192SLE MANS" 






1180 


LET FJ £21) ="34-2SOrJON" 






1185 


LET F* (22) ="3134-REIMS" 






1190 


LET F* (23) ="3734-METZ" 






119S 


LET F* (24-) ="102SUHNNES" 






1200 


LET F* (25) ="1619Lfl ROCHELLE 






.1205 


LET F* (26) ="1922POXTIERS" 






1210 


LET F* (27) ="3B31NRNCY" 






1215 


LET F* (23) ="I72SRNGERS" 






-.. S,r'ïl 


LET F* (29.V ="233ICHRRTRES- 






1225 


LET F* (30) ="2318LIMOGES" 






.1.333 


LET F* (31) ="4-703RJRCCIO" 






1 235 


LET FÏ(32.i= , '4.8iaBf)STrn" 






154.5 


LET 5=0 . 






1250 


FOR N = l TO 20 






1255 


LET U=INT (RND*32> +1 






1260 


LET T=INT (RND*32) +1 






1265 


IF T=U THEN GOTO 1260 






1270 


LET X=URL F*('J,1 TO 2) 






1275 


LET Y="JRL F*(U,3 TO 4) 






12S0 


PLOT X,Y 






12 31 


PRINT RT 21 ,0; - 






1232 


LET H=INT (RND*2) +1 






1233 


IF H=l THEH GOTO 1237 






1285 


PRINT RT 21,0; U; "-"; F* (<J,5 






T0 } 


T; "-■■; F* (T,5 TO ) 






1235 


GOTO 1290 






:i.E?7 


PRINT RT 21 ,0;T; "-" ; F* (T ,5 






TO ) 


u; " -" ; F* (u ,5 TO ) 






■ ■-:■:■:<■ 


FOR P=l TO 30 






1295 


UNPLOT X,Y 






1300 


PLOT X,Y 






1305 


NEXT P 






1310 


PRINT RT 3,24-; "REPONSE?" 






1315 


INPUT Z* 






1320 


IF CODE Z*<29 OR CODE Z*>37 






THEN GOTO 1315 






1325 


LET Z='JRL Zï 






1330 


IF Z < >U THEN PRINT RT 3,24-, 






asma 






1335 


IF Z=U THEN PRINT RT 3,24..;" 






134.0 


IF Z=U THEN LET 5=5+1 




134.5 


PRINT RT 6,25; "SCORE: ••■' RT S 






.. 25, S; " /" , N 






1350 


FOR P=l TO 10 






1355 


NEXT P 






1360 


IF ZoV THEN PRXNT RT 21,0; 






''REPONSE JUSTE : " ; <J ; " -" ; F* tU , 5 TO 






13S5 


FOR P=l TO 20 






1370 


NEXT P 






1372 


UNPLOT X,Y 






1373 


PR INT RT 3 , 24- ; " 






1375 


NEXT N 






1330 


IF S<3 THEN PRINT RT 21,0," 






CE H 


EST PR5 TRES BON,REUISEZ 






13B5 


IF S>3 RND SUS THEN PRINT 






AT 21,0; "C EST UN SCORE MOYEN 






1390 


IF S>15 RND 3(20 THEN PRINT 






RT 21,0; "C EST UN BON SCORE 






1395 


FOR. P = l TO 30 






14-00 


NEXT P 






14-05 


PRINT RT 21 ,0; "RPPUYEZ SUR 






UNE TOUCHE SUR 






14-10 


IF INKEY$ = "" THEN GOTO 14-10 






14-15 








14-20 


RUN 











-banco- 



vos chèques s'entrechoquent? 



il faut les 



contrôler 




Vous est-il déjà arrivé de vous lancer dans l'ad- 
dition de, mettons, 500 chèques ? A votre 
gauche, les 500 chèques, au milieu une feuille de 
papier et un stylo, à votre droite, votre fidèle cal- 
cultrice de poche. Vous êtes calme, frais, dispos, 
et vous commencez à entrer vos premiers chif- 
fres au clavier de la calculatrice. Ah ! Déjà une 
faute de frappe, bien ! Touche de correction d'er- 
reur et l'on repart. A moins que... à moins que 
l'on ait tout effacé, auquel cas il faut repartir au 
premier chèque... 

S'il vous reste quelques cheveux, c'est que 
vous n'avez pas souvent tenté cette expérience. 
L'essayer, c'est certainement ne pas l'adopter. 
De façon à vous aider à conserver votre crinière, 
voici la liste d'un programme BASIC, écrit à l'ori- 
gine sur un TRS-80, programme qui vous aidera 
à surmonter plus facilement ces problèmes. 



| Le programme vous permettra de 
p saisir un ensemble de chèques, ar- 
~t bitrairement limité à 1500, dimen- 

1 sion du tableau T qui les contient. 
I 

2 Ces chèques pourront être impri- 
| mes en partie ou globalement et on 
| pourra obtenir le total de tous les 
a- chèques entrés ou un sous-total 



quelconque entre deux limites choi- 
sies par l'opérateur. 

Le problème des fautes de frappe 
est résolu de deux manières diffé- 
rentes : on teste la numéricité des 
zones qui doivent être numériques, 
ce qui permet de n'obtenir que des 
montants plausibles. Et si par mal- 



chance un montant se révèle faux 
lorsqu'on le visualise, il est possible 
de le modifier et de le remplacer par 
la valeur désirée. 

La présentation se fait par pages 
numérotées (variable PA) entre une 
première ligne (PLJ et une dernière 
ligne (DL) données. 

LT est la dernière ligne entrée 
dans le tableau, Z$ la variable d'en- 
trée des montants et des choix d'ai- 
guillage du programme, TL repré- 
sente le total des chèques entrés à 
un moment donné. Lesautres varia- 
bles sont soit évidentes, soit de sim- 
ples variables de passage utilisées 
ponctuellement. 

Le programme présenté est très 
simple et, dans sa forme actuelle, 
ce n'est après tout qu'une «grosse » 
calculatrice. Il ne vous reste donc 
plusqu'à le développer en rajoutant 
par exemple une mémorisation sur 
fichier, puis la saisie de diverses 
zones comme le numéro du chèque, 
la date d'émission, la date de retrait, 
un code indiquant s'il a été ou non 
listé sur votre extrait de compte, 
tous ces petits détails qui le ren- 
dront propre à satisfaire exacte- 
ment votre problème. 

Jean-Pierre Madèlt 
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qUel amortissement choisir : 



linéaire 




ou dégressif 



L'amortissement fait partie du vocabulaire 
couramment utilisé par la plupart des entrepri- 
ses. « Les mesures fiscales pour favoriser l'in- 
vestissement » ne sont rien d'autre que des 
lois qui assouplissent ou restreignent les pro- 
cédures d'amortissement. Alors que vous pré- 
fériez l'amortissement linéaire ou l'amortisse- 
ment dégressif, pourquoi ne pas utiliser le petit 
programme Apple que nous vous présentons. 



La notion d'amortissement est 
intimement liée à celle d'investis- 
sement. Pourtant, dans la vie de 
tous les jours, nous pensons beau- 
coup aux investissements que 
nous aimerions faire - nouvelle 
voiture, appartement, meubles, 
etc. - et assez peu aux amortisse- 
ments. 

Bien sûr, s'il vous arrive de cal- 
culer le prix de revient de votre 
voiture par mois ou par kilomètre, 
vous v incluez sans doute une ru- 
brique que vous appelez pompeu- 
sement « amortissement », à 
moins que vous ne préfériez 
« usure » ou « dépréciation de la 
voiture ». La signification que vous 
donnez à ces mots n'est peut-pas 
~ très précise, mais vous sentez que 
jj, l'argent avec lequel vous avez 
S payé cette voiture n'a pas été tota- 
r! lement « dépensé » le jour où vous 
| avez fait le chèque. Cette grosse 
a dépense, cet investissement doit 
I être étalé sur une certaine durée. 
| C'est d'ailleurs ce que nous faisons 
| tous quand nous achetons à crédit, 
£ et même quand nous mettons de 



l'argent de coté en prévision d'un 
achat. 

Mais c'est dans les entreprises 
que l'utilisation des amortisse- 
ments a trouvé son terrain d'élec- 
tion, tout simplement parce qu'el- 
les tiennent une comptabilité 
précise selon un schéma figé. 
Pourquoi et comment est établie 
cette comptabilité, c'est ce que 
nous allons voir ensemble. 

On peut faire ses comptes de 
multiples façons, qui toutes se ra- 
mènent à deux possibilités. Dans la 
première, vous mettez dans une 
colonne ce que vous gagnez, pen- 
dant une certaine période, dans 
l'autre vos dépenses pendant la 
même période. La différence entre 
les deux colonnes est un déficit 
que vous devrez puiser dans vos 
réserves ou un excédent que vous 
pouvez mettre de côté - à moins 
que vous ne préfériez vous offrir 
quelque chose qui vous fait envie. 

L'autre possibilité est de mettre 
d'un côté ce que vous possédez, 
de l'autre ce que vous devez. La 
différence entre les deux vous 



donne la valeur de votre patri- 
moine à un moment donné, qui 
peut être positif ou négatif. 

Pour le commun des mortels, la 
première méthode est pratique- 
ment la seule utilisée, car nous 
vivons au jour le jour avec des 
besoins limités en matière de pré- 
vision et de précision. La grande 
question est en général : « Est-ce 
que je peux me permettre de... ? » 
et nous ne cherchons pas toujours 
à ce que la réponse soit fondée 
uniquement sur des arguments ra- 
tionels. 

L'entreprise, par contre, utilise 
en même temps ces deux types de 
comptes, dans un ensemble qui 
porte le nom de comptabilité géné- 
rale. 

Tous les ans, l'entreprise établit 
son Bilan, qui est une photogra- 
phie du patrimoine de l'entreprise. 
Dans la colonne de gauche figurent 
les Actifs, c'est-à-dire ce que l'en- 
treprise possède, en particulier les 
Immobilisations qui correspondent 
aux investissements de l'entre- 
prise), les créances et les liquidi- 
tés. Rappelons qu'une créance est 
le contraire d'une dette : c'est la 
marque que quelqu'un vous doit 
de l'argent. 

Dans la colonne de droite, le 
Passif, on trouve le Capital et les 
Réserves, les Dettes et le Résultat 
ou Bénéfice (s'il y en a). C'est un 
assemblage un peu étrange, car on 
ne voit pas spontanément de rap- 
port entre le capital et les dettes 
d'une entreprise. Il y a pourtant 



142 



Dossier Programmes n° 54 bi 




deux points communs. Le capital 
est en quelque sorte une dette 
envers les actionnaires qui ont in- 
vesti dans l'entreprise, et qu'ils 
doivent récupérer à la dissolution 
de celle-ci (voir tableau 1 ). 

Cette façon de voir est un peu 
artificielle, mais le second point 
commun est beaucoup plus fort. 
En effet capital et dettes corres- 
pondent à de l'argent qui est entré 
dans l'entreprise. Cet argent a pu 
servir à acheter des machines ou à 
renflouer la trésorerie, donc à créer 
des sommes qui figurent à l'Actif 
du Bilan. De cette façon, capital et 
dettes jouent le même rôle dans le 
système comptable. Quant aux ré- 
serves, c'est essentiellement ce 
qui reste des bénéfices des années 
précédentes après distribution des 
dividendes et paiement des 
impôts. 



Ne vivez plus 
au jour 
le jour 



Entre deux bilans s'écoule une 
période, généralement d'un an, 
que l'on appelle Exercice Compta- 
ble. Pendant cette période, l'entre- 
prise travaille avec le Compte 
d'Exploitation (ou Compte de Ré- 
sultats), qui est vide en début 
d'exercice, et se nourrit peu à peu 
de charges et de produits. 

Les produits et les charges sont 
des avatars assez sophistiqués des 
colonnes de tout à l'heure : je 
gagne - je dépense. On y trouve en 
particulier les Amortissements 
dont nous allons reparler. La diffé- 
rence entre les produits et les 
charges est le Bénéfice, qui se 
trouve être le même que celui qui 
figurera au Bilan en fin d'exercice. 

Tout ce système est très rigide 
car il intéresse énormément des 
personnes extérieures à l'entre- 
prise. Pour des raisons juridiques, il 
faut savoir qui doit quoi à qui, et 
qui possède quoi ; c'est pour cela 
que le bilan annuel est un docu- 
ment public. 

Mais surtout le fisc regarde tou- 
jours de très près comment est 
calculé le bénéfice, puisqu'il tient à 
en toucher la moitié au titre de 
l'impôt direct sur les sociétés. Et 
dites-vous bien que votre feuille de 
déclaration de revenus est une pe- 
tite plaisanterie à côté de ce 
qu'une entreprise doit fournir à 
l'administration fiscale pour le cal- 
cul de ses impôts ! 



BILAN FIN 80 . 
PASSIF 



BILAN FIN 81 


ACTIF 


PASSIF 


Investissements 


Capital et 
réserves 


Créances 


Dettes 


Liquidités 




Bénéfice 



CE 
CHARGES 


81 
PRODUITS 


Salaires 
Achats 
Impôts 
Frais divers 
Amortisse- 


Ventes 


Bénéfice 



Jusqu'ici il n'y a pas vraiment de tant, l'amortissement, qui figure 



problème : le bénéfice est la diffé- lui, en charge et donc diminue le des trois co | onnes ne changent 
rence entre les produits et les bénéfice. Au bout de quelques 
charges de l'exercice, et l'Etat en exercices, la valeur comptable de 



prend la n 



>itié ! 



Mais si vous achetez une ma- 
chine qui va vous durer 5 ans, les 
ennuis commencent. Si cet achat 
était tout de suite considéré 
comme une charge, l'exercice se- 
rait sans doute déficitaire, ce qui 
fait toujours mauvais effet, et le 
fisc ne toucherait rien et ne serait 
pas content. Les années suivantes, 
le bénéfice serait important puis- 
que la machine serait utilisée sans 
rien coûter apparemment. A moins 
d'acheter une nouvelle machine. 

Dans cette situation où les ré- 
sultats jouent aux montagnes 
russes et où les entreprises sont 
invitées à se suréquiper pour ne 
pas payer d'impôts, il serait très 
difficile d'apprécier la santé d'une 
entreprise. 

C'est ici que les amortissements 
entrent en scène : ils permettent 
d'amortir le choc d'un investisse- 
ment en diluant ses effets sur plu- 
sieurs années. 

L'idée est très simple : l'achat 
d'une machine n'est pas une 
charge. Par exemple, si elle est 
payée au comptant, les liquidités 
vont diminuer et les immobilisa- 
tions vont augmenter du même 
montant : aucune influence sur le 
bénéfice. Par contre, à la fin de 
chaque exercice, la valeur de la 
machine (sa valeur « comptable ») 
sera diminuée d'un certain mon- 



ta machine sera nulle et elle aur 
été complètement amortie. 

Vous imaginez sans peine que la 
façon dont sont calcules les amor- 
tissements a une grosse influence 
sur les bénéfices, donc sur les 



impôts que payent les entreprises. 
Un exemple le montrera claire- 
ment. 

Supposons qu'une entreprise 
achète une machine de 
120 000 francs, pour une fabrica- 
tion qui doit lui « rapporter » 
35 000 francs par an pendant six 
ans, sans tenir compte de l'amor- 
tissement. Je n'insiste pas sur ce 
que veut dire exactement « rappor- 
ter » disons que ces 

35 000 francs sont une « marge ». 

Le tableau ci-dessous vous 
montre comment seront calculés 
les impôts de l'entreprise avec 
trois modes de calcul des amortis- 
sements. Les deux premiers cas 
sont très simples : on amortit une 
somme égale chaque année, c'est 
ce que l'on appelle l'amortisse- 
ment linéaire. Le troisième exem- 
ple correspond à l'amortissement 
dégressif, qui est un peu plus 
compliqué et dont je parlerai un 
peu plus loin. 

Dans ces trois exemples, vous 
pouvez constater que les totaux 



pas avec le mode de calcul, te 
montant total d'impôt payé sur six 
ans est toujours le même. Mais 
dans les deux derniers cas, ces 
impôts sont payés plus tard, ce qui 
présente un intérêt évident, sur- 
tout en ces temps d'inflation im- 
portante. 






Amortissement linéaire 


sur six ans 






Marge 


Amortissement 


Bénéfice 


impôt 


1 35 000 

2 35 000 

3 35 000 

6 35 000 


20 000 
20 000 
20 000 

20 000 


15 000 
1 5 000 
15 000 

15000 


7 500 
7 500 
7 500 


7 500 


210 000 


120 000 


90 000 


45 000 


Amortissement linéaire 


sur trois ans 






Marge 


Amortissement 


Bénéfice 


Impôt 


1 35 000 

2 35 000 

3 35 000 

4 35 000 

5 35 000 

6 35 000 


40 000 

40 000 

40 000 







■ - 5 000 

- 5 000 

- 5 000 
35 000 
35 000 
35 000 








10 000 

1 7 500 
1 7 500 


210000 


120 000 


90 000 


45 000 


Amortissement dégressif sur six ans 






1 35 000 

2 35 000 

3 35 000 

4 35 000 

5 35 000 

6 35 000 

210 000 


40 000 
26 667 
17 778 
1 1 852 
1 1 852 
11 851 

120 000 


- 5 00O 
8333 

17 222 

. 23 148 

23 148 

23 149 

90 000 




1 666,50 

8:611 

11 574 
1 1 574 
11 574,50 


45 000 
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Dans ces tableaux certains bé- 
néfices sont négatifs, dans ce cas 
les impôts sont nuls (l'Etat sub- 
ventionne parfois les entreprises 
en péril mais pas systématique- 
ment I). I! y a alors report des 
pertes sur les années qui présen- 
tent un bénéfice, ce qui explique 
que l'impôt est parfois inférieur à la 
moitié du bénéfice. Mais si l'entre- 
prise avait d'autres activités béné- 
ficiaires, la situation serait diffé- 
rente. Le déficit des premières 
années viendrait effectivement di- 
minuer le bénéfice total de l'entre- 
prise, et donc l'impôt payé. Dans 
ce cas, le déplacement des impôts 
vers l'avenir serait encore plus 
grand. 



Une exponentielle 
n 'a pas 
de fin... 



Ces exemples nous montrent 
que l'entreprise désire pouvoir 
amortir le plus vite possible ses 
investissements pour diminuer son 
bénéfice « fiscal », lequel n'a pas 
toujours une signification très réa- 
liste. Les deux moyens d'y parve- 
nir sont de diminuer la durée 
d'amortissement ou de prendre un 
amortissement dégressif. Inutile 
de vous dire que le Code des 
Impôts est très précis sur ce que 
l'on a le droit défaire. 

Puisque c'est si intéressant, 
comment donc est calculé l'amor- 
tissement dégressif ? Le principe 
est d'amortir chaque année une 
somme proportionnelle à la valeur 
comptable, c'est-à-dire à ce qui 
reste après avoir enlevé les amor- 
tissements déjà réalisés. Sur le 
graphique 3 la valeur comptable 
de l'investissement décrit donc 
une courbe exponentielle, au lieu 
d'une droite comme dans le cas de 
l'amortissement linéaire. Mais une 
exponentielle n'a pas de fin, aussi, 
pour éviter que les choses ne traî- 
nent en longueur, on reprend un 
amortissement linéaire vers la fin 
de la durée de vie de la machine 
(dans notre exemple, sur les deux 
dernières années). 

Le rythme d'amortissement est 
donné par ce que l'on appelle taux 
d'amortissement. Pour l'amortis- 
sement linéaire, le taux est simple- 
ment exprimé en % en divisant 
100 par la durée de vie du bien. 
Pour l'amortissement dégressif, on 
calcule d'abord le taux constant 
comme dans le cas linéaire, puis 
on le multiplie par un coefficient 
généralement compris entre 1,5 et 



3, pour obtenir le taux dit dégres- 
sif. Actuellement en France, le 
coefficient multiplicateur dépend 
de la durée d'amortissement, de la 
façon suivante : 

de 2 à 4 ans 1,5 

jusqu'à 6 ans 2,0 

supérieur à 6 ans 2,5 

Dans notre exemple, sur six ans, 
le taux constant vaut 1/6 soit 
16,67 % et le taux dégressif vaut 
1/3 soit 33,33%. 

Nous avons parlé jusqu'ici des 
amortissements tels qu'ils sont 
pratiqués en comptabilité géné- 
rale, la seule qui soit obligatoire et 
stricte pour toutes les entreprises. 
Les résultats auxquels nous 
sommes arrivés nous ont montre 
que ces calculs sont souvent artifi- 
ciels. Si vous avez le droit d'utiliser 
l'amortissement dégressif, ça vous 
fera plaisir parce que vous payerez 
vos impôts plus tard, mais ça ne 
correspond à aucune réalité écono- 
mique. 



tir, et la valeur comptable en fin 
d'exercice (celle qui figurera au 
bilan en fin d'année). Il est écrit en 
Applesoft et ne présente pas 
grande difficulté ! Les données 
vous sont demandées de façon 
claire, il n'y a donc pas besoin 
d'instructions spéciales pour que 
vous puissiez l'utiliser. Le pro- 
gramme contrôle que toutes les 
données sont plausibles, en parti- 
culier que la durée n'est pas frac- 
tionnaire (les demi-années sont ac- 
ceptées) et que la valeur ne 
comprend que des centimes (les 
millimes n'existent pas en France). 
Dans tous les programmes de 
comptabilité ou de gestion, on 
trouve d'ailleurs ces problèmes 
d'arrondi et de nombre de chiffres 
après la virgule. Les centimes doi- 
vent être exacts même s'ils n'ont 
aucune signification. Ces problè- 
mes sont ici résolus par l'emploi 
systématique des fonctions défi- 
nies au début du programme : 
F2 (X) est l'arrondi au centime le 
plus proche de X ; ND (X) est le 
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Tableau 3 : évolution de la valeur comptable dans le temps 



Par contre, dans de nombreux 
cas, il est nécessaire de calculer 
des amortissements sur des bases 
différentes, pour obtenir des indi- 
cations plus fiables sur, par exem- 
ple, la rentabilité d'un investisse- 
ment. Le problème se pose en 
particulier pour le calcul des prix de 
revient - vous vous souvenez de 
l'exemple de la voiture au début de 
cet article ? Ceci explique que les 
entreprises calculent parfois 
l'amortissement de la même ma- 
chine de trois ou quatre façons 
différentes selon l'usage qui en 
sera fait. 

Le programme que nous vous 
proposons calcule les amortisse- 
ments linéaires ou dégressifs et les 
présente sous forme de tableau, 
par année, avec la somme à amor- 



nombre de chiffres après la virgule 
que possède X (attention : c'est 
- 1 si Xest entier). 

Il y a enfin un problème dont 
nous n'avons pas parlé, celui de la 
première année. Quand un bien est 
acquis en cours d'année (c'est-à- 
dire dans la plupart des cas) 
l'amortissement de la première 
année est réduit à une partie de ce 
qu'il aurait été pour une année 
pleine. Ceci se fait proportionnelle- 
ment au nombre de jours écoulés 
entre l'achat et la fin de l'année. 
Mais le calcul est simple, car il 
s'agit de jours « comptables », sur 
la base d'une année fictive de 
1 2 mois tous égaux de 30 jours. 

Guilhem Bouteloup 
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-simulation- 



attendre... 

attendre... 

toujours attendre ! 



Que ce soient les artisans (faut-il embaucher ?), 
les industriels (faut-il faire un stock ou l'aug- 
menter s'il existe déjà), les commerçants (faut-il 
agrandir la boutique ?), les grandes surfaces 
(combien de caisses enregistreuses à tel ou tel 
moment de la journée ?}, les transports de mar- 
chandises (quel doit être le volume du camion ?) 
ou de personnes (attente au guichet SNCF, 
péage d'autoroute, etc.), bref, tout ce monde se 
trouve devant le même problème de file d'at- 
tente, mais avec des données différentes ! 



Une file d'attente est provo- 
quée : 

. par l'arrivée d'individus à inter- 
valles fixes ou variables d'une 
part ; 

. par la prise en charge ou le 
traitement de ces individus à in- 
tervalles fixes ou variables d'autre 
part. 

Jusqu'ici les choses sont limpi- 
des mais, hélas, incomplètes. En 
effet, les arrivées ou les traite- 
ments peuvent être simples ou 
multiples et, dans le cas où ils 
sont multiples, le nombre d'indivi- 
£ dus lui aussi peut être fixe ou 
ï variable (ça se complique !). 
'•?. Ce n'est pas tout : le fait d'ad- 
| mettre que des éléments sont va- 
| riables implique que cette variabi- 
§ lité suive les lois mathématiques 
I connues, de façon à pouvoir simu- 
| 1er les variations que l'on rencon- 
o- tre couramment dans la « nature » 
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(employé ici au sens très large du 
terme !). 

Les concepts statistiques vien- 
dront à notre secours en nous 
donnant des modèles mathémati- 
ques pouvant reconstituer à peu 
près tous les cas de figures en 
matière de variation. 

L 'ordinateur simule les 
variations rencontrées 
dans la nature 

Trois types de variations sont 
mis en œuvre : 

— aléatoire : chaque valeur déli- 
mitée par deux bornes {inférieure 
et supérieure) a la même probabi- 
lité d'être générée ; 

- gaussien : la probabilité d'une 
valeur est d'autant plus forte 
qu'elle est située à proximité de la 



moyenne, elle-même centrée par 
rapport aux valeurs extrêmes ; les 
caractéristiques définissant cette 
loi sont la moyenne et l'écart type 
(variation des valeurs autour de la 
moyenne + trois écarts types) ; 

- poissonnien : analogue à la loi 
de Gauss, à la différence près que 
la moyenne peut être plus ou 
moins décentrée ; les caractéristi- 
ques définissant cette loi sont la 
moyenne, l'écart type et' le cen- 
trage de la moyenne (six écarts 
types entre les valeurs extrêmes) ; 
ici, la loi de Poisson est utilisée de 
façon un peu inhabituelle mais 
adéquate (les contestataires sont 
priés de se faire connaître !). 

Pour chacun de ces trois types, 
un petit programme (tout petit...) 
permet de vérifier que la simula- 
tion est fidèle au modèle de varia- 
tion choisi. Pour ce faire, ces pro- 
grammes sont construits autour 
d'un même schéma : 

- génération des valeurs corres- 
pondant au modèle de variation, 

- classification de ces valeurs 
par ordre croissant, 

- regroupement par classe ayant 
chacune le même intervalle 
(exemple : 10 à 15, 15 à 20, 20 à 
25...}. 

Le nombre de classes sera égal 
à la racine carrée du nombre de 
valeurs avec un plafond à 1 5 
(c'est-à-dire un écran)... (Ah oui ! 
j'oubliais de vous dire : ça tourne 
sur un TRS 80 modèle 1, 16 Ko 
garanti !) 



Le tout est mis dans un su- 
perbe graphique avec les classes 
en ordonnées et les effectifs de 
classe en abcisses, et s'appelle 
« histogramme de fréquences ». 

Ce programme est d'ailleurs 
inclus dans le programme princi- 
pal pour visualiser la répartition, 
non plus des valeurs générées, 
mais des attentes d'arrivées ou 
de traitements (au choix). 

Cela nous amène tout naturelle- 
ment au fonctionnement du pro- 
gramme principal dans lequel on 
observe trois phases successi- 
ves : l'entrée des données, la si- 
mulation, l'affichage des résul- 
tats. 

1) L'entrée des données : une 
foule de questions vous sont 
posées, mais aucune cependant 
n'est superflue. 

En premier lieu, il vous est de- 
mandé quel type d'analyse vous 
voulez faire : les attentes de trai- 
tement ou les attentes d'arrivées, 
cela afin de ne stocker que les 
données nécessaires (16 Ko 
oblige !) ; cette analyse s'effec- 
tuera à l'aide de l'histogramme. 

Une brève question ensuite sur 
les arrivées ou traitements simul- 
tanés ou non ; cela afin d'écourter 
le questionnaire dans le cas où les 
arrivées et les traitements sont 
simples. 

Ensuite, l'ordinateur vous met 
en condition pour affronter le 
reste du questionnaire. Il rappelle 
en même temps que tout a une 
limite (et il fait partie du tout) et 
vous engage à ne pas dépasser 
les doses prescrites afin de pré- 
server son équilibre mental ! 

Vient alors le « rush » des ques- 
tions embêtantes qui peuvent 
vous mettre dans l'embarras si 
vous n'avez pas effectué un mini- 
mum de travaux de préparation. 
On peut résumer ces questions 
suivant le schéma ci-après. 
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Il va de soi que, pour avoir une 
réponse à donner à toutes ces 
questions, il faut aller « à la 
pêche » (là aussi au sens très 
large du terme) ou faire preuve 
d'un grand talent d'improvisation. 
Si vous avez des relevés sur ce 
qui s'est déjà produit, le petit pro- 
gramme ci-dessous vous sera 
d'un grand secours pour définir 
vos modèles de variation. 



Eh bien voilà, c'est terminé 
pour la première phase (ouf !). 

2) la simulation : là, deux situa- 
tions possibles : 

- le jeu des questions et des ré- 
ponses vous a traumatisé, alors 
vous enfoncez la touche CLEAR et 
vous n'aurez pas besoin de vous 
voiler la face ; seuls deux petits 
chiffres apparaîtront au centre de 



Tracé d'un histogramme avec valeurs en DATA 




10 CLEARîDJiMFI 1600». G< J..s0B> : PE'AiJA : M 3 N=A : RESTORE 




;.0 FOPK=lTOf*0U!PEADA! IFA=0THENI- = W:P',1 : 6OTO50 




:S0 H=H + 1 :A=INT> A) sF( A)=F>'A) + 1 s IFMIN>ATHENMIN=A 




4tf PRINTU^INfî" «tttttttt» "îAï : IFMA< <,ATHENMA*=A 




50 NEXTK! IFSdiR'H)- 15THEND=IMT(5^R'Hl+l >EL£ED=]5 




fP riOY=F1AX-riIN!C=lNT<M'i- - D+ 1 ) :M=1 




70 CLSsFURJ = INT(MINiT0INT = MA>:)3TEFC!E=J+C 




90 FRINTU5ING ■'«#»" iJ! iPUTN'I" A " îU'JIN'J" tttt# ";E; 




<S0 F0RI=JTO.J + C-liGi Ji=ul Ji+Ff I î sNEXTI- 




100 IF'â(J)/M>-V7THENM=M+J :F0RI=JT0MIN5TEP-C:& i I )=«iNEV.TI : GOTO70 


1 10 IF'3(J>:'0THENFOFL=1TOG( J)/M:Ff»lNTCHF*(142) ! sNEXTL 




1 1:0 I FG ■: J ) =0THENPR I NT : NEïTJ : GOT <.> L4F 




170 printintkjij = .'H* [000+. 5) /la;":." :nfxtj 




140 IFPEEKI 14400 ! OlTH(:il[40Ll.SfcUl 





[ 




l'écran : les nombres d'individus 
traités et en attente ; 
- vous êtes sûr de la représenta- 
tivité de vos réponses, alors vous 
enfoncez la touche ENTER et ob- 
servez, étape par étape, le dérou- 
lement des événements (c'est-à- 
dire le détail de la file avec l'heure 
d'arrivée de chaque individu en 
attente). 

Il est évidemment possible, 
dans le cas d'un brusque change- 
ment d'avis, de revenir à l'une ou 
l'autre situation en utilisant les 
touches adéquates (CLEAR ou 
ENTER). 

Point n'est besoin d'impri- 
mante pour visualiser le détail de 
la simulation. La gestion des ta- 
bleaux est faite de façon que 
l'écran remplisse parfaitement 
son rôle d'économîseur de papier, 
d'autant plus que, comme toute 
simulation qui se respecte, elle 
doit être répétée un certain nom- 
bre de fois. 



Une seule 
chose à faire : 
ne rien faire 



Une recommandation : il peut 
arriver que votre TRS, pris de stu- 
peur, soit frappé de paralysie le 
condamnant à une immobilisation 
complète (qui ne sera que tempo- 
raire, je vous rassure). Si cela ve- 
nait à se produire, surtout pas de 
panique et dites-vous bien que 
vous n'en êtes pas responsable I 
De plus, il n'y a qu'une seule 
chose à faire : ne rien faire ! 

Il s'agit, en fait, suite à un 
temps d'attente trop long pour la 
taille mémoire disponible, d'un 
changement d'adresse et d'un re- 
groupement partiel de toutes les 
données déjà collectées de sorte 
que les adresses de stockage ne 
dépassent pas la réserve de mé- 
moire prévue (ce sont, en fait, les 
temps d'attente qui servent 
d'adresses...). 

3) L'affichage des résultats : 
une première partie rappelle de 
façon condensée les données de 
départ avec, en plus, les ratios 
intervalle /nombre d'individus qui 
permettent de dégager la ten- 
dance des attentes (équilibre si 
les deux ratios sont égaux, sinon 
les attentes augmentent là où le 
ratio est le plus fort) ; cela seule- 
ment dans le cas d'arrivées ou 
traitements multiples. 

Une seconde partie donne en 
valeur maximale et en moyenne : 

A AQ L'Ordinateur Individuel 
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UEHERATIÛK M HOHBRES ■ -Md'l ALEATOIRE 




H CL S 






20 MIN-BS:INPUT"NOMEflË DE TIRAGES " ÎHi CLS;FORK- l TOH 




30 A=BS-RND(BS-BI)H 








50 PRINTUSING" Hllllll - IAI t IFMAX* ATHEIJMAÏ-A 




40 NEXTK>IFSûR<H><l5TKEND-INT<S<iR<H)tllELSED'*15 




70 M0Y=MA«-MIN:C-INT(M0Y/D»]MM-1 








90 FORJ-INTtMINlTOINT<MAX)STEPOE-J*C 




100 PftINTUSINS"#4Ht-(J::PRINT" A ■ 1USING"»»* >|E| 




110 FQRI-JT0J*C-1:G< J)bG(J)+F<II îNEXTI 




120 IFGiJ)/N>49THENM-M»lIFORI;'JTOMINBTEP-CiGm-0:NEXTI:GOTOSB 




130 IFG(J>>BTHENFORL-lTOG(J>/MiPRtNTCHR*(1431!>NE)lTL 




140 IFG(J)-BTHENPRINT;NEXTJ:G0T01t>B 




150 PRINTINT(G(J)/H*100*.5)i ,, 7."!NEXTJ 




160 IFPEEKII44aO>OITHEN:i6BELSElB 




- Molli 1* OAUSÈIHÏ 




10 C CLEAR'1>T.MF<17BO> G( 1 700 ) ! PRI NT : 1NFUT- MOYENNE EC TVPE "il, S 




20 M1N-XIINPUT"N0MBRE DE TIRAGES ■ lH = CLS*F0RK-1T0H 




30 A-S»SGRi-2-LOG(RND(B)))'>COSi6.28*RND(01>*ï 








50 PRINTU5ING" ••*»•» -lAiHFMAKATHENMAX-A 




60 NEXTK:IFSQR1H)<15THEND"1NT(SÙRIH)+1)ELSED'15 




70 M0Y-MAX-MIN:C=INT<MQY/D*1>!M-1 








90 FC.RJ=INT(MIN)T0INTIMA*)5TEFC1E-J*C 








110 FORI-JTOJ+C-l:G(J)=G(J)<F(n:NEXTI 




120 IFGI JI/M>49THENM-M<.l:F0RI-JT0MIN£TEP-CIG<n-OINEXTIiG0TQ8B 




130 IFG(J!>0THENFORL-lTOG(J)/MiPRINTCHR»(143!l>NEITL 








150 PRINTINT(G(J)/H»100+.5)i"V.":NEXTJ 




140 IFPEEKU4400KMTHEN160ELSE10 




- •""• »"™» 




B CLS 

10 CLEAR:DIMFI1600i,G(16B0>:FRINT:lNPUT"MOYENNE , EC.TYPE ":X.S 




15 INPUT" CENTRAGE DE LA MOYENNE 1 A GAUCHE -3 A , A DROITE A +3 ■ 1 CE 


20 MIN-IMNPUT-NOMBHE DE TIRAGES ■ iH : CLS iFORK-lTOH 




30 A-S«Sl«IH-2»LOG(RNDl0))l*<COSl6.2B»RND(B)>-CE/3)+X 




40 A-INT!A):F<A)=F(A)<-111FM]N>ATHENM1N=A 








60 NE*TK:lFS'iHIHX15THEND=lNT<S6.R<H)*llELSED-15 








B0 O.S:PR1NT"MOYENNE : "i*i' — ECART TYPE 1 MSI* — CENTRAGE ' 


■ICEIIPR 


90 FORJ-INT<MIN)TOINTIMAX)STEPCIE-J*C 




100 PRINTgSING-Mr'IJiiPRINT- A -IvSING"»»* ■ iEi 




110 F0RI=JT0.T*C-l:r,(J)«6<J)*FlI)lNEXTI 




120 ]FG(J)/M>4'iTHENM=M<-] 1F0RI-JT0MINSTEP-OG' I )-0iNEXTI :GOTO80 




130 IFQfJI>0THENFORL-l G1JI/MIFRINTCHR«( L43>HNEKTL 




140 IFGIJl-OTHENPRINTiNEXT.nGOTOIÈB 




150 PRINTINT1G(J)/H*l00*.5)i-K"!HE»TJ 




160 IFPEEK<l44a0>OlTHEN16BELSERANDOM!GOTOlB 




5 CLÉAR:DEF1NTT;DIM TI I 100 i , T'IOB) . FILE ( 1 010 •' USUELS 




. " *P*R*0 5 R A M M Ë DE "SIMULATION 




15 PRINTIPRINT" VISUALISATION DE L ' HISTOGRAMME : 


1- DES ATTENTES DE TRAITEMENT < REPARTITION DE LA FILE 1 




2- DES ATTENTES D'ARRIVEE • REPARTITION DES ARRETS )" 




20 PRINT:PR1NT" LEQUEL VOULEZ- VOUE OBSERVER 








30 IF HI;2 OR KIO THEN 25 ÉlSE CLS 




40 PRINT-LES ARRIVEES OU LES TRAITEMENTS PEUVENT ETRE ' 




1- MULTIPLES ( AVEC MODELE DE VARIATION A VENIP ) 




2- SIMPLES ( INDIVIDU PAR INDIVIDU 1 




ÛU'EN EST-IL DANS VOTRE CAS 7... "i 
















48 IF MS-2 THEN PRINT'ARRIV. ET TRAIT. SIMPLES" 




50 PRINT:PR1NT"IL VOUS RESTE MAINTENANT A DEFINIR : 




- LES INTERVALLES D'ARRIVEES ! - 100 S] POSSIBLE ) 




- ^EFFECTIF BE LA FWPJSLATIÔW ! • 1000 IMPERATIF M" 








57 IF PEËM 14400) 1 THEN 57 ELSE CLS 








68 IF VB^'ÏHEN^PEVENTu'-RNDaTARIV» 












71 PRiNT"ï£rtPE DE TRAITEMENT : - : ,;i=2 ! GOSUB 6100:GO5UB 6400 :VTRt-VR* (0* ! TTRAIT=A 




S0 INPUT'EFFECTIF DE LA POPULAT ION" I EFFPOP: CLS 


100 REVENT (i i = 1 0000 : BANDOM 


110 PRINTaSPS.'POUH VISUALISER LE DETAIL DE LA SIMULATION -) ENTER" 






133 IF FILE.G1 THEN Gl-FILE 


140 Îf"peÙeNt""""pEVENT<2) THEN K*l 




141 IF N*F1LE:=EFFP0P THEN k-2 




1*3 IF PEEt\(l*4B»'=: rHEI-i .-j:CL? 


170 DATE=PEVENTin' 


ISS i"!N -.■■:>=..' : ÎHKS . 2550iii 


190 IF EVENEMENTS AND PILE THEN GOSUB 3000 


192 IF FILE=0 THEN B-E-l 


197 IF V=l THEN V-0~ 








220 END 


1005 gÔsÛe 6^B01PEVEICTlîl=DATE*A:IF MS= 1 THEN GOSUE 9030: NI- INTI A- 5) 


1010 FILE-FILE*l:E-0 


1030 Nl-Nl-iHF N1>B THEN 1010 


1999 REÎURN 


2(100 ■ LE DERNIER TRAITEMENT EN COURS EST TERMINE 


2020 PEVENT(2)=DATE-1B00B 


2035 IF FILE-0 THEN B-E*l iGOTO 2050 


2050 EVENEMENTS 
















3050 FILE-FILE-i lEwl ENEI E*T «l:IF MS*1 THEN N2-N2-1 ELSE N2=0 


3060 N=N*1 




3066 IF DATE-IN0C-G3 THEN G3-DATE-IN0C 




30H0 TINOC-TIN0C*(DATe-INOC) 




4005 CLS! FOR 1=1 TO 4:1F URK I )»" POISSONNIEN* THEN VR*< I >-" POISSON. ■ 


4010 NEXT IiPRINT TAB 1 29 ) ! " VAL. MOYENNE" 1 TAB( 42 ) 1 " - MODELE DE VARIATION" 


4020 IF MS-1 THEN PRINT-INT. D'ARHIV. / NB D'INDIV. :"t ELSE PRI NT" INTERVALLE D' 


4025 IF MS-1 THEN'pRINT TAE( 2B) 1 INT ( 1TARIV )| ■ / ■ 1 INT ( AV> 1 • -" I INT ( ITARIV/AV«10». 5 ) 


/10ITAE<44MVR«(l)iTAE(53l!" -;VR*I3) ELSE PRINT TAE< 33) î ITARIVtTAEi 49 J 1 VAR» 


4030 IF MS-1 THEN PRINT-TPS DE TRAIT. / NE D'INDIV. :"; ELSE PRINT"TEMPS DE TRAI 








4040 PH1NT-EFPÊCTIF DE LA POPULATION : -;N 








4055 PRINT-TPS D'ATTENTE DE TRAITEMENT :"i= 


PRINT TAE!31)!G21!A=ATTENTE'N:G0SUE 6O00:PRINT TAB(41)!A 






«065 PRINT-TEMPS MOYEN PAR INDIVIDU : ■ ! : A=PEVENT ( 2) /N:GOSUB Ù0OO:PR1NT 


4070 PRINT-TEMPS TOTAL : ";PEVENT<2> 


4072 PRINT-TAUI MOYEN D'UTILISATION ; ■ : > A- ( REVENT I 2 ) -T INOC > /REVENT ( 2 1 . 


100IGOSUB 60B0IPRINT A :"'/."! PRI NT 


4074 IF HI-2 THEN PRINT'POUR VISUALISER L'HISTOGRAMME DES ATTENTES D'ARRIVEE -> 


ENTER 




4075 IF HIM THEN PRiNT'POUF VISUALISER L'HISTOGRAMME DES ATTENTES DE TRAIT. -> 


Ë,JTEB . 


4076 IF PEEKi 14400)-- THEN 4^00 


407S IF PEE>:<14400> 1 I HE'J Wé ELSE CLS 


40B0 D=iI:NT(SÔRfN)*l):IF D 15 THEN D-15 


MOO CLs1'i"f M hÏ1i*thÈn"pRINTS7,-... HISTOGRAMME DES ATTENTES DE TRAITEMENT « 


4110 IF HI=Î THEN PRINTaf, -*** HISTOGRAMME DES ATTENTES D'ARRIVEE "•" 


Vl'Â FOR N J-B TO MA* STEP CIEC^J-C 


413B IF T(Ji-B THEN PRINT USIN5" «»*" " ( .<•» : : PBINT- A - iUSI NG" »##M "lEC*»! 


41S0 IF TIJi/U-45 THEN U=U--1:F0R 1 =J TO STEP -C : T ( I) -0: NE1T I ! G0T04 1 08 




4170 IF T<J)=B THEN NEIT J 




4190 IF PEEM 14400) :;■ 1 THEN 4190 


4200 CLS: PRINT! PRINT: PRINT! PRINT : PRINT'SI VOUS EN VOULEI ENCORE > JE PEUX : 



— le nombre d'individus en at- 
tente, 

— les temps d'attente de traite- 
ment, 

— les temps d'attente d'arrivée ; 
puis en valeur unitaire : 

— le temps moyen par individu, 

— le temps total pour traiter la 
population, 

— létaux d'utilisation des moyens 
de traitement. 

Enfin, une troisième partie 
donne la répartition des attentes 
de traitement ou d'arrivées sui- 
vant votre choix du début : c'est le 
tracé de l'histogramme des atten- 
tes. 

L'ordinateur 

trace l'histogramme 

des attentes 

Chaque classe de valeurs y est 
indiquée par ses bornes inférieure 
et supérieure et l'effectif y est 
exprimé de deux façons : 

— un trait dont l'importance cor- 
respond à l'effectif (le programme 
est ainsi fait que, quel que soit 
l'effectif, une classe ne fera 
jamais plus d'une ligne ; si tel est 
le cas, on efface tout et l'on re- 
commence, ce qui produit parfois 
quelques effets spéciaux...) ; 

— à la suite du trait, le pourcen- 
tage que représente la classe par 
rapport à la population (si leur 
somme est différente de 100 %, 
ne vous posez pas trop de ques- 
tions, c'est à cause des arrondis). 

Après cela, il est possible (en 
enfonçant ENTER) de : 

— revisualiser le tableau précé- 
dent, 

— refaire une simulation avec les 
mêmes critères, 




149 



*230 IF 
NOC-B:0 



6099 RETUBN 



1- VISUALISER LES RESULTATS PRECEDENTS 

2- FAIRE UNE NOUVELLE SIMULATION AVEC LES MEMES C 

AVEC D'AUTRES CRITERES" 
NTIPRINT-SINON ENFONCEZ LE « 4 >'" 
.'!NKEV»:CH-VAL1CH«> 
CH>* OH CH<1 THEN 4110 ELSE CLB 



Z TOUR DANS LA FILE I 



- COMPTABILISAT!! 



X'NNEES VERS F. 



■■F.-i7 3SONMIÏ.N" 
^■SAUSSIEN 1 ' Tk 



0-HSÛTO 633B 



A=[BS<0>*IOB'l 



7B05 H=BrHl=ù0 



(1ft4M)îji] THEN 7070 ELSE H=M*6B!Sp!T0 i 

1*1-1 >/5*.S>:RETURH 

IMPRESSION DU TAPLEAU DE SIMULATU 



■■USING- 


^-?fÎlÉ',else T ppints;^ 




■ :date;pevent<;m :pri 


■USI 




île; 








B0i'0 IF 










BB40 If" 


T^Z^rlàN'ltl^T 1 


-6 THEN PRI NT 






BD5P PRI 


NTSB,- CALENDRIER 




. F1LE „™ B É] 










9010 PRI 


Vt-VR«i-0) :HETURN 


UFNTR STMULTANEMENT ! 


■:0=3;G0EUB 6100:GOSU 


640 






UTEES SIMULTANEMENT 








P*=VR«i:>):RËTURN 








9030 IF 






























II™ If 


tr^*fiÏe^then N o-™a-tr 


iRETURN 






7090 IF 


TR«>- ALEATOIRE- THEN 0=4 


kml'\tli a 






9I0B IF 


TP«=>P.,ISS 1 .INNIEN- THEN . 


-*:QOTO 63-0 
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— refaire une simulation avec les 
critères différents. 

Et si, de tout cela, rien ne ré- 
pond à votre attente, enfoncez 
toujours le 4 ; sait-on jamais ? ... 

Exemple d'utilisation 



Question : combien faut-il mettre 
de postes de péage en fonction 
sur l'autoroute A 6 un retour de 
grand week-end ? 
Données : on sait qu'une voie 
peut débiter une moyenne maxi- 
male de 2 000 véhicules par 
heure (soit 1,8 seconde par véhi- 
cule). (Cette valeur n'est qu'un 
exemple ; elle peut être plus éle- 
vée.) 

Cette fréquence (1,8 se- 
conde/véhicule) peut varier sui- 
vant la loi de Poisson (écart type 
1 s. centrage de la moyenne— 2). 

Le nombre d'arrivées simulta- 
nées est lié au nombre de files, 
c'est-à-dire varie de à 3 
(moyenne 1,5, écart type 0,5). 

Sachant qu'une caisse peut ab- 
sorber 180 véhicules/heure (chif- 
fre pouvant varier de 120 à 
240 véhicules/h de façon aléa- 
toire, soit 30 à 15 s/véhicule) et 
que nous avons une moyenne 
maximale de 2 000 véhicules /h 
arrivant en moyenne sur 1,5 file 
(soit 3 000 véhicules/h), nous 
pouvons donc en déduire le nom- 
bre de caisses à mettre en œuvre 
pour satisfaire le débit moyen 
d'arrivée, soit 3 000/180 = 
17 caisses. 

Il ne reste plus qu'à observer 
l'influence d'une telle décision sur 
le trafic... 



- arrivées 

- intervalles d'arrivée -► Poissonnieri : 

• moyenne, écart type; l.B, 1. 

• centrage de la moyenne: -2, 

- nombre d'arrivées simultanées -> Gaussien 
(moyenne, écart type : 1 .5, 0.5), 

- temps de traitement -• aléatoire (borne infé- 
rieure, borne supérieure : 15, 30], 

- nombre de traitements simultanés -> fixe (va- 
leur: 17], 

- nombre devoitures à simuler : 1 000. 

Résultat: maximal moyen 

- nombre de voitures en attente . 24 7 

- tempsd'attentedesvoitures ... 36s 12s 

- temps d'attente de l'ensemble 
descaisses 1s 

- temps moyen par voiture 1,8s 

soit2000véhtcules/h 

- temps total pour 

1 OOOvoitores 1 760 s 

soit 30 min 

- taux d'utilisation de l'ensemble 

des caisses 100% 



Bien qu'ayant une capacité de 
traitements en moyenne infé- 
rieure aux arrivées (traitements 
22,5/17 = 1,3 s/voiture, 
contre 1,8/1,5 = 

1,2 s/voiture), nous observons 
une file d'attente négligeable 
(26 voitures pour 17 caisses) 
d'où la réalisation d'autres 
essais (tableau 1). 

Le temps d'attente des cais- 
ses et le taux d'utilisation ne 
sont pas pris en compte, car le 
programme considère l'ensem- 
ble des caisses comme un tout 
et le fait qu'une seule soit utili- 
sée vaut pour l'ensemble, ce 
qui, dans cet exemple d'utilisa- 
tion, n'est pas représentatif (les 
cas d'une étude de stock ou 
d'utilisation machine, par exem- 
ple, correspondent mieux à ce 
programme). 

On peut constater qu'au-delà 
de 17 caisses, le nombre de 
voitures et les temps sont sta- 
bles (pas de différences signifi- 
catives). Par contre, si l'on dimi- 
nue le nombre de caisses, on 
observe une augmentation des 
files d'attente immédiate (en 
nombre et en temps) sauf pour 
le débit (temps pour 1 000 voi- 
tures) où l'augmentation n'ap- 
paraît significative qu'à partir de 
1 1 caisses. 





10 


35 


30 


25 


20 


17 


15 


13 


12 


n 


10 


"™™t d 8 e ™" l " es "ZT 


21 


23 


23 


23 
7 


23 
7 


7 


31 

9 


23 


47 


108 


113 


12 S 1T K 


loir' 


» 


30 


30 
12 


12 


30 


36 


45 


90 
39 


230 


420 
224 


505 


1 OOOraitwes 


1 770 


1810 


,» 


1760 


1700 


1760 


1740 


1730 


850 


2 090 


2 290 


Tableau 2 




Nombre de voiture 


moyen 


67 
43 


95 

54 


61 


60 
28 


85 
35 


148 
73 


103 

43 


57 
35 


Temps d'attente maximal 


119 
78 


170 
100 


228 

116 


108 
50 


148 
64 


275 

141 


195 
80 


121 
65 


Temps total pour 
(en secondes! 


OOOvoitures 


1B8Q 


1920 


1960 


1850 


1830 


1970 


1910 


1900 



Nous pouvons envisager l'hy- 
pothèse de douze caisses plus 
en détail et voir les différents 
résultats obtenus (tableau 2). 

Aucun bouchon à signaler 
(dans le pire des cas, treize voi- 
tures par caisse). Oui, me direz- 
vous, mais la simulation porte 
sur 1 000 voitures ; qu'en sera- 
t-il pour 10 000, 100 000 ? En 
d'autres termes, la file d'attente 
était-elle stabilisée ? 

Pour le vérifier, deux possibili- 
tés sont offertes : 
- regarder l'état de la file pen- 
dant la simulation et observer 
que les plus fortes valeurs ne 



sont pas en fin de simulation ; 
- ou, moins contraignant, vi- 
sualiser « l'histogramme des at- 
tentes de traitements » et véri- 
fier que les plus forts 
pourcentages ne coïncident pas 
avec les plus longues attentes. 

Dans les simulations précé- 
dentes, seule la sixième peut 
laisser des doutes à ce sujet. 
Conclusion : douze caisses peu- 
vent être considérées comme le 
seuil à partir duquel la moindre 
augmentation de trafic crée un 
bouchon. 

Gérard Nave 



J 



Tableaux des principales variables 



I. ARRIVEES 

ITARIV 
VAR$ 



II. TRAITEMENTS 



type de variatio 



. VARIABILITE 



V. DATE 

DATE 

PEVENTll) 
PEVENTI2I 
FILE INI 
I.NOC 

VI. TEMPS 
ATTENTE tem 
TINOC : tem 
VIL HISTOGRAMME 

TX<Xl 




Dossier Programmes n° 54 bis d> 



-emprunts- 



votre argent vous intéresse, 
intéressez-vous aux intérêts 



Que pensez-vous d'une société 
de ventes par correspondance qui 
vous propose, pour un objet de 
1 490 FF, les facilités de paiement 
suivantes : 
. 384 FF comptant 
. 12 mensualités de 1 12 FF. 

Cette société pratique, en fait, un 
taux d'intérêt annuel de 37,6 %... ! ! 
et que pensez-vous de cet orga- 
nisme de crédit qui vous accorde un 
prêt de 1000 FF payable en 12 
mensualités de 95,82 FF sans an- 
noncer sur son contrat le taux d'in- 
térêts qu'il pratique... et qui est en 
réalité de 26,6%. 

L'automobile que vous voulez 
acheter coûte 30000 FF. 
. La société X vous propose un cré- 
dit en 36 versements de 1 1 1 5 FF. 
. La sociétéY,elle,proposeunpaie- 
ment comptant de 7 020 FF et 36 
versements de 920 FF. 

Dans les deux cas, le tptal des in- 
térêts versés est le même 
(1 1 40 FF). Pourtant le taux d'inté- 
rêt de la société X est de 20 % et ce- 
lui de la société Y de 25,5%. Inté- 
ressant, n'est-ce-pas? 

Banques, organismes de cré- 
dit ?... vous pouvez maintenant dé- 
cider « Basiquement »... 

Le programme ci-contre' vous 
permettra de calculer avec préci- 
sion le taux d'intérêts composés an- 
nuel d'un emprunt, connaissant : 
. la somme empruntée 
. le nombre de mensualités 
, la valeur de chaque mensualité. 

Le taux d'intérêt composé n'est, 
en principe, pas calculable directe- 
ment. Dans le programme ci- 
contre, il est fait appel à la méthode 
d'approximation de Newton, utili- 
sée pour la détermination appro- 
chée des racines d'une équation de 
nature et de degré quelconques. 

* La méthode appliquée est la sui- 
-2 va nte : 

t! . recherched'une valeur grossière- 
_§ ment approchée de la racine; 
| . affinage de la valeur de la racine; 
S . calcul d'une nouvelle approxima- 
| tion, et ainsi de suite... Lesapproxi- 
| mations successives se resserrent 
<c jusqu'à obtention de la précision 
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voulue {écart entre 2 valeurs suc- d'intérêt. 

cessives). Le p r jNT USING du programme 

Cette méthode , bien que n'étant peut évidemment être remplacé par 

pas universellement applicable un PRINT ordinaire, dans le cas où 

(l'approximation initiale doit être ce premier n'existe pas dans votre 

suffisamment près de la racine), BASIC. i 

s'avère en pratique satisfaisante Alain Girpin 

pour les problèmes de calcul de taux __^ — 

RUN 

CALCULS DU TAUX D'INTERETS COMPOSES 

— NOMBRE DE MENSUALITES? 12 

— VALEUR DE LA MENSUALITE ? 1 1 2 

— VALEUR DE L'EMPRUNT? 1106 

— > TAUX D'INTERET ANNUEL = 37.60% 
AUTRE CALCUL? OUI 

— NOMBRE DE MENSUALITES ? 36 

— VALEUR DE LA MENSUALITE ? 1 1 1 5 

— VALEUR DE L'EMPRUNT? 30000 

— > TAUX D'INTERET ANNUEL = 20.01 % 
AUTRE CALCUL? NON 

READY 
10 REM PROGRAMME DE CALCUL DES INTERETS COMPOSES 
20 REM AUTEUR ; ALAIN GIRPIN 

30 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 
40 CLS : PRINT " - CALCULS DU TAUX D'INTERETS COMPOSES 
50 REM 

60 PRINT- GOSUB 150: REM ENTREE DES DONNEES 
70 GOSUB 220: REM CALCUL APPROXIMATION 
80 GOSUB 280: REM RECHERCHE VALEUR EXACTE 
90 GOSUB 370: REM EDITION DU TAUX D'INTERETS 
100 REM 

110 REM DEMANDE SI AUTRE CALCUL 
120 PRINT "AUTRE CALCUL"; : GOSUB 9000 
1 30 IF RS = " ' THEN 60 : REM AUTRE PROBLEME 
140 END: REM FIN DU PROGRAMME 
1 50 REM 

1 60 REM ENTREE DES DONNEES 
170 REM 

1 80 INPUT " -NOMBRE DE MENSUALITES " ; N 
1 90 INPUT "VALEUR DE LA MENSUALITE "; V 
200 INPUT " -VALEUR DE L'EMPRUNT " ; E 
210 RETURN 
220 REM 

230 REM CALCUL DE L'APPROXIMATION 
240 REM 
250 R3 = E / V 
260 R2 = 1 / R3 - (R3 / N 1 2) 
270 RETURN 
280 REM 

290 REM RECHERCHE VALEUR EXACTE 
300 REM 

310R5 = (R2+ 1)1 -N 
320 X = R3 ' R2 - 1 + R& 
330 Y = (R5 * (N / (1 / R2 + 1 ) + 1 ) - 1 ) / R2 
340 R2 5= R2 + X / Y 
3501F ABS{X) >1 E - 6 THEN 310 
360 RETURN 
370 REM 

380 REM EDITION DU TAUX D'INTERET 
390 REM 

400 PRINTUSING "- >TAUX D'INTERET ANNUEL =###,##%" ; R2 * 1200 
410 RETURN 

9000 INPUT RS : REM OUI OU NON ? 
9010 R$ = LEFTS (RS,1) 

9020 IF R$<>"0" AND RS<>"N"THEN PRINT "O OU N"; : GOTO 9000 
9030 RETURN 



Tout a commencé 

par la lecture 

des petites annonces 

d'appartements. 

Ceux qui me plaisaient 

semblaient 

vraiment 

hors de mes moyens 

financiers; 

et ceux que je pensais 

pouvoir acheter 

étaient nettement 

trop petits, 

La seule solution 

était 

d'acheter 

un appartement 

de taille convenable, 

mais en mauvais état, 

et de répartir 

petit à petit 

les travaux 

au cours du temps. 

Mais ceci revenait 

à poser 

périodiquement 

la question : 

combien 

puis-je emprunter, 

et donc 

rembourser 

chaque mois, 

sans en être réduit 

à ne nourrir 

ma petite famille 

que de riz 

et de lentilles? 

J'ai ainsi entrepris 

de faire 

l'étude détaillée 

des dépenses familiales 

et des recettes ; 

pour ces dernières, 

étant salarié, 

pas trop de problèmes, 

ni d'imprévu : 

salaire mensuel 

auquel il faut ajouter 

les allocations familiales 

plus des «primes» 

plus ou moins 

périodiques. 



gestion familiale 

quand 

l'ordinateur 

gère 

votre trésorerie 



Avant de planifier des dépenses 
«extraordinaires» il faut commen- 
cer par bien connaître les dépenses 
« obligatoires » qui sont variées tant 
en montant qu'en périodicité. 

Une étude du passé récent est 

très instructive et permet de chif- 
frer et de dater les divers éléments. 
. L'habitation : un loyer (ou un rem- 
boursement d'emprunt) plus les 
chargea et les impôts associés (il y 
en a 4 ou 5 pour un propriétaire). 

L'alimentation : les achats, dans 
les diverses boutiques, sont assez 
difficiles à apprécier exactement, 
surtout a posteriori lorsqu'ils ont été 
réglés en argent liquide. Mais, de- 
vant l'importance du montant rela- 
tif, il faut examiner très soigneuse- 
ment le montant de ce poste (ne pas 
oublier les prix des repas de can- 
tines d'entreprise ou d'école). 

. Les services : téléphone, EDF- 
GDF, éventuellement eau ; en tout, 
au moins une facture par mois, plus 
la femme de ménage. 
. Les vacances : trajets, logements 
sur place, nourriture pour les divers 
éléments de la famille (les enfants 
et les parents ne suivent pas tou- 
jours le même itinéraire). 

. Les vêtements : pour chacun des 



membres de la famille. Les gros 
achats réglés par chèques sont fa- 
ciles à analyser. Les achats cou- 
rants réglés en liquide, ou les 
achats dans les grandes surfaces, 
risquent de se retrouver englobés 
dans le budget alimentation. 

. L'auto (ou les autos) : achat (ou 
remboursement des mensualités), 
garage, entretien (essence, grais- 
sage, pneus...). 

. Les enfants : montant des pen- 
sions, de la rentrée des classes (un 
pic!). 

Les sports : clubs sportifs, maté- 
riel et trajets (chaussures, vête- 
ments, skis, bateaux). 

Les objets de loisir : livres, re- 
vues, journaux, musique, brico- 
lage, cadeaux (Noël et anniver- 
saires). 

. Et ne pas oublier les impôts : ils 
sont assez faciles à repérer, plus 
difficiles à prédire, surtout au-delà j 
de 12 mois (les montants croissent, ^ 
les dates se rapprochent du début 2 
de l'année). c 

Quand on fait le cumul de toutes S 
les dépenses, on voit apparaître : | 
certains pics à des dates fixes, ce | 
qui confirme que la simple gestion à: 

L'Ordinateur Individuel -| CQ 
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mensuelle amène inexorablement 
des problèmes de trésorerie. Il faut 
néanmoins s'arranger pour avoir 
toujours un solde créditeur et, si l'on 
est très prudent, supérieur à une 
certaine somme en cas d'ennuis 
imprévus : accident ou maladie 
grave... 



Des prévisions 
en général 
difficiles 



Ainsi, par un dépouillement soi- 
gneux des diverses opérations en- 
registrées sur les comptes postaux 
ou de chèques, il est possible de 
connaître les dates et les montants 
des divers éléments, tant en recette 
qu'en dépense. On peut donc, sans 
trop de difficulté, faire la liste et l'é- 
chéancier de toutes les dépenses 
que l'on est plus ou moins obligé 
d'effectuer, ainsi que des res- 
sources dont on va disposer : avec 
ou sans calculette (mais sa pré- 
sence diminue le nombre d'er- 
reurs I) on peut obtenir une assez 
bonne prévision — tel jour il doit 
rentrer telle somme, tel jour tant... 
— et, ainsi, connaître le montant 
disponible en fonction du temps. 

En opérant ainsi, on s'aperçoit 
vite qu'a côté des dépenses claire- 
ment répertoriées, il y a une foule 
de petites dépenses qui se font à 
longueur d'année et n'apparaissent 
dans aucun compte car elles sont 
individuellement faibles : tickets de 
métro, courrier, journaux, net- 
toyage des vêtements, cinéma, mu- 
sées, expositions, taxis, quêtes, 
pourboires divers... 

Toutes sommes qui correspon- 
dent généralement a des dépenses 
en argent liquide, dont il faut ex- 
clure les dépenses d'alimentation, 
sinon on arrive à une somme impor- 
tante difficile à maîtriser. 

Pour toutes ces dépenses, un 
montant forfaitaire journalier s'a- 
vère une bonne solution. 

Ceci se fait en ajoutant à toutes 
les dépenses énumérées ci-dessus 
une dépense «constante», un peu 
analogue à une petite fuite dans le 
montant des disponibilités, qui per- 
met de serrer la réalité de façon 
réaliste, mais ne simplifie pas les 
calculs (combien y-a-t-il de jours du 
23 mars au 7 avril?) 

En opérant ainsi, on obtient des 
résultats assez bons, d'autant meil- 
leurs que les hypothèses sont plus 
précises. 
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Connaissant les ressources et dé- 
penses «normales», on peut alors 
aborder l'étude des dépenses «ex- 
traordinaires » — ou d'une variation 
des ressources — . Dans le cas cité 
plus haut, il s'agit essentiellement 
des travaux d'aménagement du lo- 
gement une fois que l'on y est ins- 
tallé. 

C'est alors que les calculs devien- 
nent vraiment fastidieux, car il est 
nécessaire de faire plusieurs hypo- 
thèses avant d'arriver à une solu- 
tion acceptable. Par ailleurs, les 
«conditions environnantes» évo- 
luent : on renonce pour cette année 
à refaire la cuisine, ce que l'on avait 
prévu en juin (car le réfrigérateur et 
la machine à laver sont à bout de 
souffle),et l'on va profiter des ré- 
ductions du salon des Arts ména- 
gers (en mars). 

Mais va-t-on régler comptant ou 
bien en 6 ou 1 2 mensualités ? Il faut 
alors modifier tous les calculs en ne 
prenant pas en compte les mon- 
tants correspondant à la cuisine, 
mais ceux correspondant aux appa- 
reils ménagers, avec deux ou trois 
séries d'hypothèses. 

Et le, on s'aperçoit qu'il est vrai- 
ment pénible de gérer au mieux un 
budget toujours à la limite de l'équi- 
libre. 



Laissez 
la machine 
faire les calculs 



C'est à cause de cette deuxième 
phase que j'ai mis la prévision bud- 
gétaire sur mon ordinateur indivi- 
duel, en adaptant la méthode qui 
avait fait ses preuves à la main, 
mais en faisant faire par la machine 
toute la partie fastidieuse du tra- 
vail : les machines sont faites pour 
ça ! 

Les données qui sont immuables, 
ou tout au moins que l'on peut 
considérer comme telles car on n'y 
peut rien, sont stockées sur cas- 
sette une fois pour toutes (en les in- 
troduisant avec un grand soin, car il 
ne sera plus possible de les modi- 
fier) : ce sont les données détaillées 
ci -dessus. _ 

L'idée de base est de pouvoir faire 
des simulations successives du 
budget prévisionnel en introduisant 
au clavier les hypothèses qui ris- 
quent de varier puis, lorsque l'on a 
choisi une politique, d'en enregis- 
trer les éléments sur la cassette, et 
ainsi de suite. 

Pour cela le programme débute par 
une demande de conditions ini- 







L'ordinateur bouc-émis 



tiales, date à partir de laquelle on 
veut simuler (inutile de chercher à 
simuler le passé) et le montant dis- 
ponible à cette date (ce qui est une 
remise à jour très pratique des 
comptes). 

Puis, si l'on dispose d'une cas- 
sette contenant des données déjà 
stockées, on lit cette cassette où 
l'on trouve, pour chaque opération, 
son nom, sa date, son montant et sa 
nature (recette ou dépense). Au 
cours de cette lecture on élimine les 
enregistrements correspondants à 
une date antérieure à la date mini- 
mum fournie au début. Les autres 
données sont stockées en mémoire. 

On ajoute alors au clavier des 
opérations supplémentaires, que 
l'on peut ou non ajouter sur la cas- 
sette à la suite de celles déjà lues, ce 
qui permet d'étudier des hypo- 
thèses successives (que l'on ne 
stocke pas sur cassette) puis un 
choix (que l'on stocke). 

On peut, de même, étendre le 
champs des prévisions en ajoutant 
les recettes et les dépenses pour 
des périodes de temps plus loin- 
taines ; une application de cette mé- 
thode est la création de la première 
cassette : partant de rien, on ajoute 
les premières opérations. 

Enfin, on introduit la valeur de la 
dépense «constante» définie plus 
haut par son montant mensuel, si 
l'on désire en introduire une. 

Tous les éléments sont a lors dans 
la mémoire de l'ordinateur, qui trie 
les enregistrements en fonction de 
leur date, puis effectue tous les cal- 
culs et affiche les résultats. 



. 



A la fin de ce cycle, l'utilisateur 
connaît clairement les consé- 
quences prévisibles de ses hypo- 
thèses. Et la réalité confirme sou- 
vent les prévisions ainsi faites, 
dans la mesure où cette prévision 
n'est pas à trop long terme (au-delà 
de 18 à 20 mois il faudrait tenir 
compte de diverses variations de 
prix) et surtout dans la mesure où 
les données introduites sont sé- 
rieuses. 

Comme il s'agit de la gestion pré- 
visionnelle du budget d'un ménage, 
les notions telles que les amortisse- 
ments n'ont pas leur place (si ce 
n'est sous la forme indirecte du 
montant des remboursements cor- 
respondant aux emprunts faits). 



Des prévisions 

de six 

à douze mois 



Le programme a été tout d'abord 
écrit sur un Tandy TRS 80 (4 K, Ba- 
sic Level 1 ) puis il a été transformé 
pour un TRS-80avec BASIC Level II. 
C'est ce dernier programme qui est 
décrit ici. Je vous fait grâce de la 
liste de la première version qui 
comportait de nombreuses acro- 
baties,nécessaires pour faire tour- 
ner le programme en Basic 
Level 1 . 

Parmi les contraintes, les deux 
plus sévères sont la taille mémoire 
et le fait de ne disposer que d'une 
unité de lecture-écriture sur cas- 
sette. La cassette n'ayant pas de re- 
tour arrière sur un enregistrement 
(le « BACKSPACE » de certains lan- 
gages) il n'est pas possible d'avoir 
un enregistrement de fin de fichier. 

On en est réduit à connaître le 
nombre d'enregistrements déjà 
écrits, à les lire, et à passer en mode 
enregistrement sans modifier la po- 
sition de la cassette pour allonger le 
fichier, et enfin à recueillir soigneu- 
sement le nouveau nombre total 
d'enregistrements pour le passage 
suivant. 

La taille mémoire limite le nom- 
bre d'opérations que l'on peut pren- 
dre en compte. Pour un TRS 80 4K 
Level 1,on arrive à une soixantaine 
d'enregistrements, soit 10 mois à la 
cadence de 6 par mois. En Level II, 
avec la même taille mémoire, le fait 
de conserver les noms des opéra- 
tions conduit à ne pouvoir en traiter 
que 35 à 40, soit une prévision de 6 
mois, ce qui est faible. (En passant à 
16 K, il n'y a aucun problème pour 
traiter une prévision raisonnable). 



Dans les deux programmes don- 
nés ici, le manque de place mé- 
moire a entraîné la suppression de 
tous les commentaires, ce qui rend 
le texte difficile à comprendre. De 
même, de nombreuses variables 
sont réutilisées, ce qui économise la 
place, mais diminue la clarté, et doit 
être évité de façon générale. 

Trois tableaux C, D, et M contien- 
nent, pour chaque opération, son 




nom,sa date et son montant respec- 
tivement. Le nom est une chaîne li- 
mitée à 16 caractères, la date est 
condensée sous la forme d'un en- 
tier (positif et inférieur à 22 000), le 
montant est sous la forme d'un 
nombre en virgule flottante avec 
signe (+ signifiant recette, — dé- 
pense). 

Les ordres commençant par des 
numéros inférieurs à 500 forment 
le programme principal, les sui- 
vants divers sous-programmes. 



Six 
sous-programmes 



De 600 à 630, il y a un sous-pro- 
gramme créant la date composée à 
partir du jour, du mois et de l'année. 
Cette date composée est analogue à 
celle obtenue en mettant bout à 
bout les deux derniers chiffres de 
l'année, du mois et du jour (exemple 
pour 15 septembre 1978, on ob- 
tient : 78091 5). On obtient ainsi des 
nombres qui croissent dans l'ordre 
des dates, ce qui facilite le tri. 

Pour pouvoir faire tenir ceci dans 
une variable entière (et gagner ainsi 
de l'espace mémoire) il ne faut pas 
dépasser 32 767. Pour cela l'année 
est remplacée par sa valeur moins 
78. (Ainsi le 1 er janvier 1978 de- 
vient: 000101 et le 30 décembre 
1 999 : 21 1 230). Pour gagner de la 



place en mémoire tous les mois ont 
été supposés égaux, et de 30 jours. 

En 650 figure un sous-pro- 
gramme effectuant l'opération in- 
verse, c'est-à-dire redonnant l'an- 
née, le mois et le jour à partir de la 

date composée. 

En 680 figure un sous-pro- 
gramme fournissant le titre de l'édi- 
tion finale de l'évolution de la tréso- 
rerie. 

En 690, un sous-programme im- 
prime une ligne d'étoiles (*). Le pro- 
gramme d'édition finale, sur lequel 
nous reviendrons plus loin, couvre 
les lignes 700 à 870. 

En 950-960 on trouve le sous- 
programme imprimant une ligne du 
tableau d'évolution de trésorerie. 

De 9 000 à 9 020 figure le sous- 
programme habituel de vérification 
d'une réponse OUI ou NON. 



Revenons 

au programme 

principal 



Jusqu'en 50: obtention de la 
date minimum (E) et du montant ini- 
tial Ml) ainsi que diverses initialisa- 
tions 

de 60 à 1 20 : lecture du contenu 
d'une cassette provenant d'un trai- 
tement précédent ; au cours de la 
lecture, on élimine les opérations 
antérieures à la date minimum 
(H < E), en ne les conservant pas en 
mémoire dans les tableaux des 
noms (C), des dates (D) et des mon- 
tants (M). Les enregistrements re- 
tenus sont affichés au fur et à me- 
sure de la lecture sur l'écran, ce qui 
fait patienter l'utilisateur et lui per- 
met de contrôler le bon déroule- 
ment des opérations. 
. de 150à310 : acquisition aucla- 
vier et traitement des données rela- 
tives à des opérations supplémen- 
taires, acquisition et contrôle entre 
190 et 220, stockage en mémoire 
en 230, et (éventuellement) sur cas- 
sette en 240. Les ordres 280 à 310 
donnent le nombre total d'enregis- 
trements stockés sur la cassette, 
avec un cadre spectaculaire pour 
éviter qu'il ne passe inaperçu. (On 
peut gagner de la place en mémoire, 
au détriment de fa sécuritéen rédui- 
sant l'ampleur de ce cadre). 
. de350à370: ilya l'introduction 
de la « dépense constante ». 
. en400et410sonteffectuéesdi- 
verses initialisations pour préparer 
l'édition des résultats. 
. en 420 à 450 est effectué le tri 
des arguments dans l'ordre des 
dates croissantes ; le tri détermine 
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18 DEFSTR fl-C : DEFINTD-L, R-Z 

te s i -.-".i£>.ci5ej.t><5e).fi<sB) 

30 PPIMT'PREVISION B!!DGET,flIRE":PRINr 

40 PRINT-DflTE MINIMUM fl PRENDRE EN COMPTE' :G0SUB68e 

50 IrlPUT"IWTflOT DISPONIBLE « CETTE Offfc" il» : E=H J-B L-BPRIHT 

£0 PRINT"RVK-VOUS UNE CASSETTE H LIRE"; GOSUBWBBZMM . IFZ*="N"THEN15B 

70 PRINT'dONTEZ LR CRSSETTE SUR LE NRGNETOPHCNE ET POSITIONNEZ EH LECTURE" 

80 INPUT "NOMBRE TOTAL D'ENREGISTREMENTS OEJW ECRITS"; LCLS 

90 COSUB690;FORI-BTO1.-1 [NPUT#-1,C<J».D<J),M<J) H"C<J»:lFHCETMENli0 

100 GOSU6650 N-M(J) IFN>-0THENH-"CR"ELSeH=-'D*:N'-N 

110 PRINTUSINQ" y. V. «■/#»/« UIHHMHI ffî"iC(J),¥.H,M,N.fl 

120 NEXTI 

153 PRI NT "VOULEZ- VOUS AJOUTER DES DONNEES". : GOSUB9000 IFRÏ= I, N"TWEN350 

168 PRI NT -DES IREZ- VOUS LES CONSERVER SUR CftSSETTE", GOSUB900B T$=R* 

178 aS PRINT:IFZM"U ,, ANDT*-"0"THENPRINT H (10HTEZ UNE CASSETTE VIERGE" 

180 im=-0' , THENPRINT-APPUVEZ SUR PLBV ET RECORD" 

190 INPUT"NOM DE L'OPERATION", ft A-LEFT«(H. 16: PRIWSR DBTE":G05UB6Be 

20B IFMCETHENPRINT'WTE ANTERIEURE AU MINIMUM" GOT019B 

218 1NPUT" MONTANT"; N N=B8S<II) 

220 INPDT'TREDIT OU DEBIT"; 6 IFB="CREPIT"THEN0-1 

ELSE I FB= " DEB I T " THEN6— 1 

ELSE22B 

230 N=N*0 D<J)=H:M<J)=N:C<J>=A W*l 

24B IFTl-"U"THENPRINTt-l,fl.H, NL-L+1 

250 PRI NI" AVEZ- VOUS D'AUTRES DONNEES" G0SUB9OOB: IFRI^'O-THENISO 

270 IFT*-"N"TMEN350 

288 Gosueeso 

290 PRI NT "RETENEZ SOIQNEUSEMENT LE NOMBRE TOTAL D'ENREG 

300 PRINT "»»X»»X»V'» IL EST DE"L 

310 GOSUB690 

330 PRI NT "VOULEZ- VOUS INTRODUIRE UNE DEPENSE 1 

360 [FU«="Û"THENINPUT"SON MONTANT MENSUEL"; H :C 

4B0 H-É ' GOSUB658 : QOSUB680 

41B PRINT0S7, ; PRINTUSI NO" MONTANT INITIAL il 

430 F0RK'J*1TCI E=[KK> 

4<iS ;-!-v:y.. ; ï^./jv. : - :v--::< :;--M<J) M'J>-M(h 
458 NEXTK.E-kiF-X G=V . GOSUB7B0 NEXTJ 

=N< I ) : E=H : MX : G=Y ; GOSUB700 



INPUT 1 



f: IFV<lORV>30THEN6Oe 



630 U-U-73 H-H-10000«X*100*V:RETURN 
650 W-H/19000;V=H-M*10000 K=V'108:V=' 
680 CLS PRINT08, "INTITULE"; PRINT824, 
690 F0RI9-1T061.PRINT"'"; NEXTISPRIr 
780 G0SUB65B IFUM"N"THEN72B 



Des perfectionnements 
qui dépendent 
de ia mémoire 



Avec 4K de mémoire, on peut 
chercher à simplifier l'édition fi- 
nale. On remplace alors les ordres 
700 à 870 par l'édition d'une ligne 
(analogue aux ordres 950 et 960) 
avec un compteur pour arrêter l'édi- 
tion toutes les 1 lignes par exem- 
ple (sinon le défilement trop rapide 
ne permet pas de consulter les ré- 
sultats), la reprise se faisant en ta- 
pant sur la touche ENTER. 

Ceci permet aussi de supprimer 
tout le tableau P. On peut ainsi ga- 
gner en nombre maximum d'opéra- 
tions traitées, environ 13 opéra- 
tions de plus. 

On peut aussi diminuer la taille du 
cadre utilisé lors de l'affichage du 
nombre total d'enregistrements fi- 
gurant sur la cassette : mais un ca- 
dre moins spectaculaire augmente 
les chances d'oubli de ce fameux 
nombre d'enregistrements stockés 
sur la cassette. .. Il faut choisir en- 
tre la sécurité et la performance. 



) IFJM2THEN80B 



800 IFVO0THEN650 
820 F0RL-BT07:5=J-8 



■DATE"; PRINTB37, "f 



l . IFV=3THENV-8 



; PP1NT046, "SOLDE 1 



9000 INPUTRI 



successivement la première opéra- 
tion à prendre en compte dans l'en- 
semble des opérations restantes. 
Aussitôt que cet argument est 
obtenu, il est transmis au sous- 
programme d'édition et affiché sur 
l'écran ce qui présente deux avan- 
tages : pour l'utilisateur, il est dés- 
agréable de rester devant un écran 
vide où il ne se passe rien : cette 
méthode morcelle le temps d'at- 
tente; pour l'économie de place 
mémoire : le tableau Pqui contient 
les soldes successifs peut être ré- 
duit à la dimension d'un écran (soit 
13 éléments). 

. Le sous-programme d'édition 
est formé de deux parties : la pre- 
mière pour éditer le tableau initial, 
la seconde pour éditer les tableaux 
suivants. La technique d'édition par 
tableaux successifs permet à l'utili- 
sateur d'avoir devant les yeux une 
image stable aussi longtemps qu'il 



le désire, plus exactement tant qu'il 
n'appuie pas sur la touche ENTER. 
Un recouvrement important se fait 
d'un tableau au suivant, ce qui offre 
l'avantage de pouvoir examiner de 
près ce qui se passe entre deux ta- 
bleaux successifs. Les lignes 700 à 
740 permettent la création du pre- 
mier tableau : les données sont affi- 
chées aussi rapidement que la tech- 
nique de tri les fournit, jusqu'à l'ob- 
tention d'un écran plein. Les lignes 
800 à 870 exécutent la création des 
tableaux Successifs suivants par re- 
prise des huit lignes finales du ta- 
bleau précédent, et affichage de 5 
lignes suivantes au fur et à mesure 
de leur obtention par le tri. 

Les critiques sur ces programmes 
sont de natures différentes suivant 
que l'on considère que l'on travaille 
sur une machine de 4 Kde mémoire 
vive ou plus. 




Avec plus de mémoire on peut 
ajouter un certain nombre de per- 
fectionnements : 

. Un générateur automatique des 
opérations à répétition périodique 
(cas d'un remboursement mensuel 
par exemple), ceci évitant d'avoir à 
refrapper la même chose pour tous 
les mois. 

. La possibilité, à la fin d'une exécu- 
tion, de vider la totalité des opéra- 
tions contenues en mémoire sur la 
cassette afin de simplifier les opé- 
rations après un choix de solution. 
. Visualisation des fluctuations 
sous forme d'un graphique. 
. Prise en compte de la longueur 
exacte des mois, tant dans la saisie 
des dates que dans le calcul des dif- 
férences de dates. 
. Trouver et afficher la date où le 
montant du solde est le plus faible, 
et la valeur de ce montant. 



Christophe Dt'sabeau 









lundi, mardi, mercredi, jeudi, vendredi... 

vous rappelez-vous le ''jour" 
de votre naissance? 

20 lignes de basic pour vous rafraîchir la mémoire 



L'article qui suit vous présente un petit programme 
en langage BASIC qui répondra à cette question, 
ainsi qu'à celles-ci par exemple : 

— Quel était le jour de la prise de la Bastille? 

— Edmond Rostand dit dans Cyrano de Bergerac : 
«Et samedi vingt-six (septembre 1655), une heure 
avant le dîné, 

«Monsieur de Bergerac est mort assassiné.» 

Cet événement peut-il être authentique? 

Mais d'abord, examinons quelques notions de base. 



Nous vivons depuis l'année 1 582 
sous le règne du calendrier grégo- 
rien. Cette année-là, et afin de rat- 
traper l'avance créée par le précé- 
dent système de calendrier (julien 
fondé par Jules — d'où le nom — 
César), le pape Grégoire XIII — dit 
Le Grand — décida que le lende- 
main du jeudi 4 octobre serait le 
vendredi (ouf!)... 15 octobre! De 
plus, afin de maintenir l'année 
moyenne à une valeur plus proche 
de l'année tropique (365,2425 



I 



GLOSSAIRE 

Année tropique : temps sépa- 
rant deux passages consécutifs 
du soleil au tropique. Elle vaut 
365,24220 jours. 

Année séculaire : année dont le 
millésime se termine par deux 
zéros. (Exemple : 1 800, 1 900, 
2000...). 

Année bissextile : année dont le 
millésime est divisible par 4 
(1972, 1976, 1980...). 

BIBLIOGRAPHIE 

Le calendrier, Paul Couderc, col- 
lection «Que Sais-je ». Pluri- 
sciences, 1979. Encyclopedia 
Universalis. 



jours contre 365,25 dans le sys- 
tème julien), il fut décidé que les 
années séculaires ne seraient plus 
bissextiles, sauf celles dont la 
valeur est multiple de 400, ce qui 
fait gagner 3 jours tous les 400 
ans. Evidemment, la perfection 
n'étant pas de ce monde, le présent 
calendrier accusera encore trois 
jours de trop... mais d'ici 10000 
années... Le programme proposé 
devra alors être modifié en consé- 
quence... 

Bien entendu, la mise en usage 
de la réforme grégorienne ne fut 
pas uniformément acceptée par 
tous les pays. Ainsi, en France, le 
retrait des 10 jours fautifs eut lieu 
entre le 9 et le 20 décembre 1 582, 
aux Pays-Bas entre le 14décembre 
et Noël, l'Allemagne et la Suisse 
(catholique) acceptèrent la réforme 
deux ans plus tard, la Pologne 4 
ans, la Hongrie 5 ans et l'Angle- 
terre 1 70 ans, soit en 1 752... mais 
il leur fallut sacrifier non pas dix, 
mais onze jours... ce qui donna lieu 
à de vives protestations I II est vrai, 
nous rappelle Paul Couderc, que le 
début de la même année avait été 
avancé de 3 mois ! 

Revenons à notre programme. 

Celui-ci, à partir d'une date intro- 
duite en système julien ou grégo- 
rien, donne deux informations : 

, Le numéro du jour julien : c'est 
une convention astronomique 



représentant le nombre de jours 
écoulés depuis le 1 e ' janvier 471 3 
avant J.-C. (—4712). Ce nombre 
sert de base au calcul du jour de la 
semaine et permet, en outre, de 
connaître le nombre de jours entre 
2 dates en faisant la différence de 
leurs nombres juliens respectifs. 
. Le jour de la semaine correspon- 
dant à la date donnée. 

Il est à noter que les dates intro- 
duites avant la réforme grégo- 
rienne doivent être données en 
système julien et qu'elles peuvent 
être négatives et remonter jus- 
qu'en — 4712 (4713 av. J.-C). 
Dans l'autre sens, elles peuvent 
dépasser notre époque et atteindre 
des dates futuristes... jusqu'à la 
prochaine réforme... 

Pour les amateurs, voici les for- 
mules ; 
JD = J-f-ENT<367(MP-1 + 5)/12) +■ 

ENT (365,25 (AP + 4712)) + Z 
avec : 
J = jour, M = mois, A = année 
MP = M + 1 2 si M = 1 ou 2 

sinon MP = M 
AP = A — 1 si M = 1 ou 2 

sinon AP = A 
Z = 2 pour dates juliennes, 
= ENT [AP/400] — 
ENT [AP/400] 
pour dates grégoriennes 
ENT [] signifie partie 
entière de X. 
. Jour de la semaine (0 à 6 avec 
= dimanche, 1 = lundi, etc.) 

JS - 7 X FRAC [(JD - 
1 720977)/7] 

(FRAC signifie : partie fractionnaire 
de []). 

Et maintenant : 
. Quel était le jour de la prise de la « 
Bastille? -S 

— Le 14 juillet 1789 était un ° 
mardi, e 
. Edmond Rostand avait-il raison ? | 

— Non! Le 26 septembre 1655 | 
était un dimanche. g 

Alain Girpin % 
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-système d'information personnel- 



rendez-vous 

avec votre 

ordinateur 

grâce à ce programme tout simple 



Chaque jour, je me lève en pensant à tout ce que 
je dois faire dans la journée... et chaque soir, je suis 
fâché avec moi-même. Pourquoi? eh bien, j'ai 
oublié de téléphoner à telle personne... ou bien, je 
n'ai pas pu terminer tel travail... ou bien... Je ne 
sais pas si vous êtes comme moi, mais je suis sou- 
vent plus préoccupé par les tâches que je n'ai pas 
pu accomplir, que par celles qu'il me reste à réali- 
ser. Alors, un beau jour, j'ai décidé de résoudre 
définitivement ce problème pour le moins épineux. 



J'ai tout d'abord observé ce qui se 
passait. Je me définissais, pour 
chaque semaine, un certain nombre 
de tâches à effectuer, mais sans 
évaluer la durée de chacune d'elle. 
Souvent, il m 'aurait en fait fallu, soit 
travailler 24 heures sans interrup- 
tion, soit faire une dizaine de 
choses en même temps, afin d'ho- 
norer mes prévisions., arbitraires. 
Un vieux dicton affirme qu'il ne faut 
pas courir deux lièvres à la fois, et je 
ne peux pas plus avoir deux activités 
en un même temps ! 

Je n'ai eu aucune difficulté à m'a- 
percevoir que l'une des causes les 
plus importantes de mon problème 
était sans doute l'absence de plan 
de travail. 

Une solution m'est alors apparue 
absolument évidente : je devais 
m'imposer une certaine discipline. 
Pour cela, le meilleur moyen était 
d'élaborer un planning clair qui soit 
une représentation assez fidèle des 
tâches quotidiennes à accomplir. Il 
ne faut toutefois pas « verser dans 
l'extrême » qui consiste à mettre en 



place une programmation détaillée 
de ses activités, qui serait alors pa- 
ralysante. 

Le résultat, c'est que maintenant 
je suis plus efficace pour la réalisa- 
tion de l'ensemble de mes activités 
et ceci pour deux raisons princi- 
pales : 

. Suivre une ligne de conduite 
évite souvent de s'écarter de l'ob- 
jectif que l'on s'est fixé. En effet, 
j'avais une tendance naturelle à 
vouloir me consacrer à 36 affaires 
différentes sans en achever une 
seule. 

Un problème bien posé est à 
moitié résolu. En effet, ce planning 
doit être avant tout réaliste, et ceci 
m'impose donc souvent de procéder 
à une analyse plus précise des élé- 
ments qui concourent à l'accom- 
plissement d'un travail donné : est- 
il nécessaire, par exemple, d'ac- 
complir telle tâche aujourd'hui plu- 
tôt que telle autre ? De même, il vaut 
mieux ne pas prévoir de travail écrit 
dans le train, etc. 



Commentaires sur le programme 

Le programme ici présentésurun 
Tandy TRS-80 a pour configuration 
une mémoire de 4 K octets de mé- 
moire vive MEV, un écran-clavier, 
un cassettophone. Le langage uti- 
lisé est le BASIC niveau II. 
Le programme permet de prendre 
en compte 25 articles au mini- 
mum, dans une même période. 
(Nous appellerons article une 
plage horaire occupée sur 
l'agenda). 

L'utilisateur peut choisir parmi six 
possibilités ; 

. création d'un article (avec 
contrôle des données entrées); 

. correction d'un article; 

. interrogation d'un groupe d'ar- 
ticles, basée sur une date de départ ; 
le tri, avant la visualisation, est ef- 
fectué à partir de cette date; 

. Jistede l'ensemble des articles : 
visualisation après tri, par page 
c'est-à-dire par groupe de 13 
lignes ; 

. sauvegarde des articles : l'op- 
tion FIN déclenche le transfert des 
articles en mémoire sur une cas- 
sette, ce qui constitue notre fichier ; 

. chargement du fichier-cassette 
en mémoire, avec sélection sur la 
date : ne sont retenues que les 
plages horaires postérieures a une 
date fixée. 

Structure du programme 

Le corps du programme se situe p- 

de 10 à 610 comme suit : V 1 

. de J0à90: identificationdeta- | 

bleaux - impression des com- | 

mandes possibles - branchements §. 

alternatifs (suivant option) ; | 

. en Î00: création d'un article; | 

. de 200 à 220: liste fichier; £ 
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. de 300 à 320 .interrogation ar- 
ticles ; 

. de 400 à 430: correction arti- 
cles; 

. de 500 à 540: chargement en 
mémoire d'un éventuel fichier-cas- 
sette ; 

. de 600 à 610: création du fi- 
chier-cassette (sauvegarde). 

Nous trouvons ensuite six mo- 
dules (ou sous-programmes) : 

. de 1 000 à 1 099: vérification 
d'une date; 

. de 1 500 à 1 510: introduction 
d'une date; 

. de 2 000 à 2 020: introduction 
de l'article avec contrôle ; 

. de2 100à2 720 .tri sur la date 
et l'heure de début des plages ho- 
raires; 

. en 2300: impression de l'en- 
tête ; 

. de 2 400 à 2 410: impression 
d'une ligne article, avec mise a jour 
du compteur, de lignes. 



Charger le programme 

Lorsque le programme est chargé 
en mémoire, le message « READY » 
est imprimé ; 

. taper au clavier <• RUN » (puis 
enfoncer - ENTER»); 

, un menu présentant les six op- 
tions est affiché: l'utilisateur ré- 
pond en sélectionnant un chiffre de 
1 à 6. 

Messages divers : 

. DATE(SS/MM/AA)..?: répon- 
dre de 01/01/79 à 31/12/80; 

. HEURE DE DEBUT...?: répon- 
dre sous la forme 13.30; 

. HEURE DE FIN...?: répondre 
sous la forme 13.30. 

Utilisation 

des fichiers -cassette 

. Chargement du fichier (option 
5): DATE (SS/MM/AA}.. ? Ne se- 



ront chargés depuis la cassette que 
les articles postérieurs à cette date 
(comprise). 

. Sauvegarde sur cassette {option 
6): rembobiner la bande cassette 
choisie pour le fichier, initialiser le 
compteur du magnétophone, à zéro, 
puis, avant d'enfoncer les touches 
« RECORD et PLAY », faire avancer 
la bande de quelques blocs (comp- 
teur à 3 ou 4). 

NB : c'est une bonne idée que d'u- 
tiliser une cassette relativement 
courte (10 à 15 mn) et de changer 
de face à chaque utilisation de la 
cassette : on a ainsi beaucoup plus 
de chances d'avoir au moins une 
version pas trop ancienne du fichier 
stocké. Mais il faut penser a mar- 
quer très lisiblement la date d'utili- 
sation sur la bonne face de la cas- 
sette. 

Michel Favier 



Liste du programme 



JHILLE POUR 3 E UIPES ^ 


<- 1 A/C SE KEPJJSË : 8 


'<• 2 3/C SE REPOJE : A 


1- 3 A/B SE DEPOSE : C 


BRILLE POUR 5 EQUIPES 


*• 1 A/E B/D SE KEPOSE : C 


R- 2 B/E C/D SE REPOSE : A 


R- i C/E A/B SE REPOSE : D 


R- A 0/E A/C SE REPOSE : B 


R- 5 A/D B/C SE REPOSE : E 


R- 1 A/G B/F C/E SE REPOSE : D 


R, 2 B/G C/F D/B SE REPOSE : A 




*- 4 D/<J B/F VC SE RÉPOSE : H 


R- 5 S/G A/D B/C SE REPOSE : F 




6 P/0 A/E B/D SE REPOSE : C 


R- 7 A/F B/E C/D SE REPOSE . C 


GRILLE POUR 9 EQUIPES 


R- 1 A/I B/H C/G 0/F SE REPOSE ! E 




2 B/I C/H D/C E/F SE REPOSE : A 




3 C/I Ml E/S A/B SE RÉPOSE : F 


R- 4 D/I E/Li F/S A/C SE REPOSE : B 


M- 5 E/I F/H A/0 B/C SE REPOSE : C 


R- 6 F/I G/H A/K B/D SE REPOSE ; C 


R- 7 G/I A/F B/E 0/ù SE REPOSE : Il 


R- 9 A/H B/C C/F U/E SE REPOSE ; I 


GRILLE POUR 11 EQUIPES 



-clubs- 



droit au but: 

préparez le concours 
de votre club de boules 

Un jour, nous avons reçu une lettre d'Ignace 
Nicolosi qui nous appelait au secours pour 
l'aider à écrire un programme de préparation de 
tournoi de boules. Nous retransmettions alors 
son appel en « Courrier des lecteurs » et grâce 
à vous, et en particulier grâce à Mohamed 
Belaroui, le tournoi pouvait se dérouler en 
septembre sur ordinateur. 



Membre d'un club de boules et 
passionné d'informatique (depuis 
peu I), je voulais lier mes deux pas- 
sions pour l'organisation du tournoi 
annuel. Ce tournoi met au prise X 
équipes et X peut être impair. Dans 
ce cas-là une équipe est au repos à 
chaque tour tandis que les autres se 
rencontrent deux à deux. Avec X pe- 
tit, écrire un programme qui précise 
le déroulement du concours est 
simple si l'on utilise la technique de 
la permutation circulaire. Mais 
comme il devait y avoir plus de 20 
équipes, le problème devenait trop 
compliqué pour être résolu ainsi. 
D'où ma lettre à L'OI. Puis l'attente. 
Une longue attente jusqu'à fin août 
où enfin je reçus la visite de Moha- 
med Belaroui et de son programme 



salvateur!*). Il ne me restait qu'à 
adapter ce programme sur mon 
CBM Commodore et bien sûr à l'es- 
sayer. Quant au test en grandeur 
nature, il n'aura lieu que dans 
quinze jours. 

Ce programme est bien sûr fort 
simple et par là même ne doit pas 
nécessiter de nombreuses modifi- 
cations pour être adapté à l'organi- 
sation d'autres tournois. 

Si vous ne dispose; pas d'une im- 
primante sur votre Pet/CBM, il suf- 
fit de supprimer les lignes 100 et 
110. 

Ignace Nicolosi 

l'I Nous avons reçu d'autres programmes 

yé: NDLR 



10 RËM * PREPARATION D'UN TOU.tNOI DE EOULËS » 

20 REM AUTEURS MOHAMED BELAROUI ET IGKACE HÏCOLOSI 

30 REM COPYRIGHT L'ORDINATEUR' INDIVIDUEL ET LES AUf; 

40 aEM************************** -************ 

100 OPEN 5,4 :RE.l POUR IMPRIMER 

110 CMD 5 

120 PRINT"" 

130 DIM T1(50),T2(25),RS(25),LS(25),R1$(1) 

140 R£Hr-*'?rt-. 

150 REM 

160 FOR X-3 TO 25 STEP 2 

170 PRIS! TAB(10);"G1ULLË POUR ";X; "EQUIPES" 

180 PRINT"*'-T-»T»--T-f 

190 K-INT(X/2) 

200 Ï-X-(M*2) 

210 IF ï-0 THEN 540 

220 REM-*- 

230 REM 

240 FOR 1-1 TO X STEP 1 

250 READ LS(I): T1(I)-I 

260 I1{I+X)-I: T2(I)-X-I+1 

270 KEXT I 

230 REM 

290 REM--- 

300 R-0 

310 REM*-- 

320 FOR I-I TO X 

330 RSd)-" " 

340 HËXT I 



350 REM 




360 REM--- 




370 F[iIHT"R=";R+l;" '; 




380 REM". 




390 RJJH 




400 FOR 1=1 T0 X 




410 IF T1(I+R)-T2(I) THEN 460 




420 IF R?(T1(I+R))="0" THEN 470 




430 IF RS(T2(I))="0- THEN 470 




440 PRINT L$('T1<I+R)); , 7";L$(T2(I));" ■■; 




450 RS(T1<I+R))=•■0■■:R$(T2(I)) = ,, 0' , ; GOTO 470 




460 R1$=L$(T2<I)) 




470 HEXT I 




480 REM 




490 REM— - 




500 PRINT " SE REPOSE : "(RIS 




520 R-R+l 




530 IF ROX THEN 320 




540 RËSTOKE 




550 NEXT X 




560 REM 




570 REH--1-»-.-. 




580 ENU 




600 REM************************************** 


********* 
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-bourse- 



enfin une valeur sûre 

pour gérer 
votre 

portefeuille de titres 



Pourquoi ne pas vous aider de votre Sinclair 
ZX-81, muni de son extension 16 Ko MEV et 
éventuellement de l'imprimante, pour gérer 
votre portefeuille de titres ? t Vous pourrez ob- 
tenir grâce à ce programme, outre la comptabi- 
lisation des valeurs détenues (jusqu'à trente 
valeurs différentes numérotées de 1 à 30), le 
calcul de la rentabilité globale de votre porte- 
feuille, ainsi que celui de chaque valeur. 




Au préalable, il vous faudra en- 
trer en mémoire près de 9 K- 
octets, en prenant bien soin de 
décrire chaque ligne telle qu'elle 
figure dans la' liste du programme, 
notamment pour tout ce qui est 
affichage de messages alphanu- 
mériques (même nombre d'espa- 
ces, etc.) et pour tout ce qui 
concerne la fabulation écran ou 
imprimante. 

La toute première fois que vous 
utilisez le programme vous devez 
faire RUN, puis, après l'affichage 
du menu, vous devez nécessaire- 
ment choisir l'option 5, c'est-à- 
dire la remise à zéro des fichiers 
mouvements. 

Tapez « oui » en toutes lettres ; 
cela est indispensable, car certai- 
nes variables doivent être décla- 
rées au cours de cette portion de 
programme. Vous pouvez alors 
mettre à jour votre fichier valeur. 

Vingt caractères sont 
disponibles pour 
chaque valeur 

Pour les utilisations ultérieures 
(le programme ayant été sauve- 
gardé précédemment par l'exécu- 
tion de la ligne 9020 SAVE 
« BOURSE »), après chargement 
du programme contenant les don- 
nées de votre portefeuille, l'exécu- 
tion se poursuit automatiquement 
par un GOTO à la ligne 100. 

Si au cours de vas transac- 
tions, il arrive que le programme 
s'arrête sur un compte rendu d'er- 
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1 POUR H.fi.J. FICHIER URLEUR 

S POUR EDITION FICHIER 'JBLEUR 

3 POUR JOURNRL DES KOUVEMENT5 

4. POUR EDITION D UN RELEUE 

5 POUR REMISE fl ZERO DES 
FICHIERS MOUVEMENTS 

9 SI 'FIN 


QUEL Ne UDULEZ METTRE R JOUR ? 

NUMERO 1 

LIBELLE: ESSRI 

COURS; B FRANCS 

FRRPPER 1 POUR MODIFIER LE 

2 POUR MODIFIER LE COURS 

3 SI FIN 

UOTRE REPONSE : a 


| Menu général. \ 


J Menus pour chaque option\ 

1 POUR L IMPRIMANTE 
S POUR L ECRRN 
9 SI FIN 


1 POUR L IMPRIMANTE 
3 POUR L ECRRN 
9 SI FIN 



Programme de gestion d'un portefeuille de valeurs (suite et fin) 



*sSà LPRIHT îvol LPRINT° ala 

*I?S fESIHT TflB 6 -" nlJ »*• 4778 LPRIWT ; "TOTAL C 

îg"j t-ilï EIE-f 8 ,, *7?B LPOIHT ,' "TOTBL E 



"1-iW v irr »;«;» 



iïl" 



>juez uous fhire'lo" 



" OU LIEU 'DÉ NON. . 



9BSB SPUE "BOLiBSH" 



; "PRU: ";PROi" PRB:",- u 

; "DER. OP. U6 "JOÉÇfJl 4693' IF Ph6t*« 

F.PTF+KT 4.7(10 LET KTuCPI 

U + S 47111 GO SUR Q1AI 

?T«I fevpj 



163 





Liste des variables 


A 


Divers 


PTF 


Valeur du portefeuille 


ACH 


Total des entrées 


PVD 


Plus-value dégagée sur 


CIN) 






une opération 




type N 


PVT 


Total des plus-values 


CPN 


Total des coupons 




dégagées 




encaisses 


Q(N) 


Nombre de valeurs de 


D$|N) 


Date de la dernière 




type N détenues 




opération sur la valeur de 


R 


Quantité négociée 




type N 


S$ 


Sauvegarde provisoire du 


DIFF 


Différence entre prix de 




libellé code opération 




revient et valeur du 
portefeuille 


T 


Montant d'une opération 




Date d opération 




type N 


MIN) 


Prix de revient global de la 
valeur de type N 


VAR 


Variation en pourcentage 
entre deux montants 


0$(X> 


Type d'opération (entrée, 

sortie, etc.) 

Cours de négociation 


VTE 


Total des sorties 


P 


W 


Compteur de lignes lors 
d'édition à l'écran 


PRG 


Prix de revient global 


X$ 


Divers 


PRGT 


Prix de revient global du 




Numéro de colonne pour 
édition 


PRU 


d'une valeur 




Utilisé pour la tabulation 



reurs, un GOTO 100 en mode 
commande permet de reprendre 
l'exécution du programme, en af- 
fichant à nouveau le menu (sur- 
tout ne pas faire RUN). 

Une fois le programme initia- 
lisé, procédez à la mise à jour du 
fichier valeur (option 1 ; vingt ca- 
ractères sont disponibles pour le 
libellé de chaque valeur ; le cours 
à mettre est celui de la date d'éva- 
luation souhaitée). 

Le programme de libellé 
des codes réalisé selon 
vos souhaits 

Ce fichier valeur peut être alors 
visualisé sur écran ou imprimé par 
le choix de l'option 2 du menu. 
Pour l'impression, la date peut 
être entrée sous toutes les formes 
(par exemple : 31 août 1982). 

Pour effectuer la saisie des 
opérations, prenez l'option 3 du 
menu. Vous disposez en tout de 
trois codes d'opérations : 






Programme de gestion d'un portefeuille de valeurs (début) 



3B*5 POINT FIT C , B; "QUANTITE I 
3BSO PFIINT AT 7, B; "PRIX REUII 



3B65 PBINT &T 10 , B; • 



mn 



4HH 



■ iSt <: 



' n+ 15, e; "SAISIE c 






^j^fjniNT ht is,»;' 

* ^ m m 31*9 FOR 2 = 1 TO 5 



23SO PRTNT m 



Copyright l'Ordinateur individuel et Alain Kienlen, 



"'"■■'■yiVii'il*""'""" 11 *" Programme ********************* 
. l^WÇ??^ ■?■ ma^BB^m d'édition d'un NOMBRE DE TITRES: ne 
******************************** ?:,"„, H *"** REUIENT GLOBRL: 23253.37 FF 

journal des prix revient unitaire: 256.3* ff 


L ORD. INDIUIDUEL CODE: 1 mOU 




SITUATION PRECEDENTE DU 

QUANTITE DETENUE: 
PRIX REUIENT 6LOBHL: a 
PRIX REVIENT UNITAIRE: 

rchat .100 le ia.ee. as 

lu COURS DE : 2S0 FF 
MONTANT NET: 23253.37 FF 


L ORD. INDIVIDUEL CODE: 1 

SITUATION PRECEDENTE DU 30.07.82 

QUANTITE m î-FNijr: 110 

PRIX REUIENT GLOBAL: 23S53 . 37 

PRIX REUIENT UNITAIRE: 256.34 


SITUATION POSTERIEURE 

NOMBRE DE TITRES: *1BB 

PRIX REVIENT GLOBAL: 23253.37 FF 

PRIX REVIENT UNÏTRIRE: 232.53 FF 


•JBNTE :40 LE 1S.03.S2 

AU COURS DE : 32S FF 
MONTANT NET: 12SB5 . 27 FF 

SITUATION POSTERIEURE 

'JOMBRË DE TITRES: 70 

PRIX RE- V;->,T SLCBHL: 17979. 4-1 FF 

PRIX REVIENT UNITAIRE: 256.34 FF 


L ORD. INDIVIDUEL CODE: 1 
SITUATION PRECEDENTE DU 12.06.83 

quant rrl* détenue?* 100 

PRIX REVIENT GLOBAL..- 232S3.37 
PRIX REVIENT UNITAIRE: 232.53 


PLUS VALUE DEGAGEE: 2531.67 FF 

******************************** 

FIN D EDITION 


1it"res fe ' eVé ^ RU 3i - ROUT l9aa 


ATTRIB.:10 LE 15.37.33 


MONTANT NET r FF 

SITUATION POSTERIEURE 

NOMBRE DE TITRES: IlO 

■-■■'■C: RFUIi ■ SA! 23253.37 FF 

PRIX REUIENT UNITAIRE: 256.8* FF 


ïLORD^INDIUIDUE^^^ 24514 


70 R 3B0.2 FF 
PRU: 2SB.B4 PRG- 17979.41 
DER. OP. LE 13.03.82 
URR. 38.34 PC 




MttaaMq 245 1 4 


L ORD . IND IU IDUEL CODE : 1 


PRIX REVIENT TOTRL : - 17979.41 


•JARIHTIQN EN FF: 6534. S9 


SITUATION PRECEDENTE DU 15.07.32 

QUANTITE DETENUE: 11B 

PRIX RF '«AL: 23253.37 

PRIX REUIENT UNITRIHE: 256.84 


PLUS VALUES DEGAGEES: 2531.67 

soit i4, as pc 

COUPONS ENCAISSES 880 
SQIT 4.89 PC 


COUPON : 110 LE 30. 07. 32 

euj COURS DE : 3 FF 
MONTANT NET: S30 FF 




SOIT 55.32 PC 

TOTRL DES ENTREES: 2B253.37 
TOTAL DES SORTIES: 12905.27 


SITUATION POSTERIEURE 


s******************************* 



îr Programmes n°54 bis déc. 1( 






. les entrées : code 1, 
. les sorties : code 2, 
. les coupons xode 3. 

Le programme vous demande 
cependant si vous souhaitez mo- 
difier le libellé correspondant à 
ces codes, par exemple « achat » 
au lieu d'entrée et « vente » au lieu 
de sortie. Le nouveau libellé ne 
doit pas comporter plus de six 
caractères. Si vous tapez seule- 
ment Newline, le libellé standard 
apparaît, par exemple : entrée. 

Le ZX-8 1 est une 
valeur sûre, si vous 
savez l'utiliser / 

La date, dont l'introduction est 
demandée à la suite du libellé, 
doit, cette fois-ci, être émise sous 
la forme JJ MM AA (par exemple : 
3 mai 1982 = 030582). 

Afin de ne pas fausser les fi- 
chiers « mouvements », il y a lieu, 
pour toute opération telle qu'une 
sortie de droits (qui n'est pas une 
vente) accompagnée d'une attri- 
bution d'action(s), de sortir les 
droits avec le code entrée et d'ins- 



crire qualité et montant en « néga- 
tif». 

Il en est de même pour toute 
annulation d'opération enregis- 
trée par erreur. 

Ci-dessous, voici maintenant la 
décomposition du programme. 



N'oubliez pas que votre Sinclair 
est une valeur sûre, mais qu'il ne 
fait que ce que vous lui demandez 
de faire. 



. Programrne 

Lignes tO à, 80: initialisation des tableaux. 

Lignes 100à 200: affichage du « menu » général. 

Lignes 1000à 1210: mise à jour du fichier valeur. ' 

Lignes 2000 à 2600 : édition, sur l'écran ou sur f'rmprimante! du 
fichier valeur.' 

Lignes 3000 à 3640 : journaf des mouvements, destiné à mettre à 
jour les quantités de titres détenus et à 
enregistrer les montants globaux des en- 
trées, sorties et coupons encaissés. 

Lignes 4000 à 4790 : édition, sur l'écran ou sur l'imprimante, d'un 
relevé des valeurs détenues, indiquant diffé- 
rents renseignements. 

Lignes 5000 à 5040 : remise à zéro des fichiers mouvements, 
(entrées, sorties, coupons et plus values) à: 

; , effectuer iors de la première utilisation du 

;■: ,;/.:'.'. programme et à chaque fin d'année. 

1000 à 9025 : sauvegarde du programme et des données 
de votre portefeuille. Vous y accédez par 
l'option 9 du menu général. 



LE FESTIVAL 
DU LOGICIEL 



Au cours du Festival du Logiciel qui a eu lieu à 

la Chartreuse de Villeneuve-lez-Avignon du 8 au 31 juillet 1983, 

le public a désigné les meilleurs des logiciels écrits 

par des auteurs "amateurs". 



PALMARES 



Grands prix décernés par le CIRCA La Chartreuse 

Dominique Bertrand, pour son programme « Son » ( 10 000 FF]. 
Daniel Delevoye, pour son programme «Test de caractère» 
(10 000 FF). 
Pascal Pellier. pour son programme «Formule 1» (10 000 FF). 

Prix décerné par L'Ordinateur Individuel 

Serge Nal, pour son programme * Damo» (10 000 FF). 

Prix décernés par RTL 

Grand prix «Jeune programmeur» à François Coulon, pour 

ses deux programmes «Aventure à Zorgon» et «Romulant» 

( 7 000 FF). 

Second prix «Jeune programmeur» à Christophe Blanchot, 

pour «La France et ses départements» (3 000 FF). 

Prix «Club» au Club Ademir, pour -Krypton» (5 000 FF). 

Prix décernés par Antenne 2 â cinq jeunes programmeurs 

Eric Lablaine, pour son «Télécran» (2 000 FF). 

Pascal Anquetin, pour «Venusia et l'empire des Elistres» 

(2 000 FF). 

Gérard Samblancat, pour «Master Mind» (2 000 FF). 

Jean-Arthur Silve, pour « Gaiactic 3 » (2 000 FF). 

Jean - Luc Perrin, pour «Envahisseurs» (2 000 FF). 

Prix décernés par l'Agence de l'Informatique 

Premier prix à Gilbert Montagner, pour «La tête dans le plat » 
(une configuration Goupil 3). 

Deuxième prix à Michel Perrault, pour son «Jeu de Kim » (une 
configuration TO 7). 



Troisième prix à Stéphane de Luca, pour «Maestro» (TO 7). 

Quatrième prix à Bertrand Gayet, pour «Multigraph» (TO 7). 

Cinquième prix à Jean Lépine, pour «Jeu de la pendule, 

encadrement» (TO 7). 

Prix décernés par la Fondation de France 

Premier prix à Jean Lépine, pour « Labyrinthe et isométries» 

(10 000 FF). 

Second prix à Pierre-Alain Goupille et Jean-Claude Robinet, 

pour leur programme « Unité Centrale » (5 000 FF). 

Prix décerné par la Caisse des dépôts et consignations 

Jean-Yves Garnier et Olivier Sidler, pour «Diabolo» 

(16 000 FF). 

Prix décerné par la Compagnie Bull 

Association française pour la lecture, pour «Elrno» (15 000 FF). 

Prix décernés par Vifi-Nathan 

Prix « Education » à Jean-Claude Attal, pour « Calcul Mental » 

(une configuration TO 7). 

Prix «Jeu» à Philippe Baroin, pour «Descente à ski de 

l'Everest» (TO 7). 

Prix «Gestion Familiale» à Dominique Otello, pour «Suivi 

deCCP»(T0 7). 



Prix décerné par Thomson 

William H en neb ois, pour «Rebelle» (ui 
complète). 



: configuration TO 7 



Le Festival du Logiciel a été organisé pat le CIRCA La Chartreuse 

avec le concours de la revue L'ORDINATEUR INDIVIDUEL et de 

la Coopérative de Conseils TEN, et avec la 

participation de RTL et d'Antenne 2 

Référence 120 du service-lecteurs (page 172) 



LE FESTIVAL 
DU LOGICIEL 



Au cours du Festival du Logiciel qui a eu lieu à la Chartreuse 

de Villeneuve-lez-Avignon du 8 au 31 juillet 1983, 

le public non initié a utilisé plusieurs dizaines de logiciels 

écrits par des auteurs individuels ; 

une vingtaine d'autres logiciels étaient proposés 

par leurs éditeurs et sont disponibles dans le commerce. 

Les premiers ont fait l'objet de prix dont leurs auteurs 

ont été lauréats, et les organisateurs sont heureux 

de mentionner ici les logiciels commerciaux qui ont été 

les plus demandés et appréciés par le public de ce Festival. 



Galaxîe-L: jeu d'adresse et de réflexion: une navette 
spatiale dans un labyrinthe, à la recherche de diamants (édité 
par Ediciel (Matra -Hachette), rue Jean-Pierre Timbaud, 
BP 66 - 78390 Bois d'Arcy). 



Pictor: logiciel pour composer à l'écran des tableaux 
réalistes ou abstraits, des paysages et pour les colorier (édité 
par Vifi-Nathan, 17, rue d'Uzès - 75002 Paris). 



Diététique rappelle les principales notions et les grandes 
règles de la diététique puis passe à la pratique en composant 
un menu adapté aux besoins de l'utilisateur (édité par 
Vifi-Nathan). 

EdiLogo: langage informatique interactif avec le gra- 
phisme de la tortue: apprentissage de la logique, du raison- 
nement et du travail en groupe (édité par Ediciel). 

Lena 1 : un cours rédigé en français sous forme de 26 leçons 
de Basic Applesoft, 120 programmes expliqués et exécutés 
sur l'écran, et un jeu de 140 questions- réponses (édité par 
André Finot, 8 allée Bouffon, 91000 Evry-Cou 



Logo: langage de programmation pour tous, enfants el 
adultes n'ayant jamais touché à un ordinateur, permettait de 
créer des figures avec la tortue et le petit triangle sur l'écran 
couleur sans aucune instruction complexe (édité par SMT. 
22 rue Saint-Amand, 75015 Paris). 

Mélodia : qui permet de composer une mélodie, de 
l'écouter, de l'améliorer, de la transformer... et d'apprendre 
quelques notions de solfège (édité par Vifi-Nathan). 

Motus {jeu du cochon) : le joueur propose une lettre <i 
l'ordinateur, si elle fait partie du mot à trouver, elle s'affiche 
à sa place dans le mot, sinon le cochon perd une partie de 
son corps. 



Le Festival du Logiciel a été organisé par le CIRCA La Chartreuse 

avec le concours de la revue L'ORDINATEUR INDIVIDUEL et de 

la Coopérative de Conseils TEN, et avec la 

participation de RTL et d'Antenne 2. 



Référence 120 du service-lecteurs (page 1 72) 





Prénom . 
Adresse _ 



Code postal _ 
Date: 



_ Tel 

Signature : 



Référence 117 du service-lecteurs (page 172) 

S L'Ordinateur Individuel 
Dossier Programmes n° 54 bis dec. 1983 




D EDUSCOPE 7 - l'initiation au BASIC "colorée et sonore" 
3 cassettes + manuel 30 pages 360FTTC 

□ ORISCOPE 1 - la maîtrise de la tasse résolution 
1 cassette + livret 86FTTC 

□ ORISCOPE 2 - la maîtrise de la haute résolution 
1 cassette + livret 86FTTC 

□ ORISCOPE 3 - la maîtrise de la musique 

1 cassette + livret 86FTTC 

□ CO MPTASCOPE 2 - gestion fam i I iale des recettes et dépenses ... 160FTTC 



APPLE 



éppphz 



SPECTRUM 



□ Catalogue des logiciels "ARTIC" sur simple demande 



ZX81 



ZX8I 



□ EDUSCOPE 1 - initiation grand public au BASIC et concepts informatiques 

4cassettes-1manuel100pages 360FTTC 

nËDUSCOP£1-10programmesd'applications-1cassette 90FTTC 



D COMFTASCQPE 1 - gestion lamiliale - 1 cassette 100FTTC 

DPLAYSCOPE1 -le jeu des anagrammes -1 cassette 85FTTC 

□ PLAYSCOPE 2 - 25 lettres au choix pour composer des mots 

" le compte est juste" - 1 cassette B5FTTC 

DPLAYSCOPE3-OPLAHIagrenouilleespiègle 85FTTC 



BULLMICRAL 



iBull 



D EDUSCOPE 6 - initiation à la programmation BASIC 
1 disque souple + manuel 50 pages 
(préciser le type de disque souple à la commande 02, D4, D8) 590 FTTC 



SHARP MZ80A/B SHARP 



BON DE COMMANDE 



Je désire recevoir les progiciels suivants indiqués dans les cases ci-dessus. 

Je choisis de payer : 

D par CCP ou chèque bancaire, établi à l'ordre de CF2E, 

joint au présent bon de commande 
D directement au facteur, moyennant une taxe de contre-remboursement 

de 16 F. 

«Adresser vos commandes à : 
CF2E Val de Loire - 11 rue d'Alsace 49000 ANGERS - tél. : (41) 88.62.76. 

V»— —— — .' 

Référence 116 du service-lecteurs (page 172) 



grâce a ! adaptateur graphique sur un 



VOUS- CONNECTEZ LA CARTOUCHE 
et VOUS JOUEZ ! _«, 



CARTOUCHES DISPONIBLES 

ACTUELLEMENT 

DEMANDEZ NOTRE%ATALOGUE 

GÉNÉRAL SOFTWARE 

CARTOUCHES ET CASSETTES 

pour 

ZX81, ORIC, SPECTRUM, Vit 20 



_ï _r w 



StM 




nd R SOFTWARE 




__. ._ bureautique; 

lssfi< calques •T/Mfte .-:•:;■- 

cale, Calcslar, Mullipk-:n. Visio 
bien choisir une imprimante ; 



arTI-u9rtA,Oric1.AlcyatieA6, 
Rainbow 100, Prolessional 350, 
Quiz Mastar, Homard infernal. 



géographie • Jeu; 24 Heures 
Ou Mans, alunissage, torpille et 
bathyscaphe* 



lô-'32!jii: 



■s processeurs 



ploilation • Essais: PC 3201, 
GoupilS;Pfflïec, Catetesndû/- 
Ihraals. Bascom «t ittormali 
que en milieu carcéral ; le dessin 
animé; dessins en perspechve ; 
programme de !ri rapide • Jeui : 
envahisseurs • Infora A Lyon, 
CeWI à 



logiciels de jeux su Apple 2, Ata- 
11400, Alom, Sfiaip MZ 80, 

Tl 99/4A, TRS 80, Vie 20, Victor 
Lambda, ZX81 ; programmez vo- 
tre jeu • Essais : Commodore 64, 
Sanco 6001 , Régence et PhilirJor ; 
Vislschedule • Programmation et 
. ;asiion de cassettes sur 






Templiers sur CBM ; le 
sur Tl 9S/4A • Les eux 
• EKpos: NCC et Apple 



I" I viduëllâ. En France . 
cob, Micro-Expo ; au> : 

NCC : au Japon : Micro Computer 
Show ; en Belgique: Compec Eu- 
rope 83* Essais : IBM PC. Lyn», 
Atari 400, AX20; Factor, Alcor 
Pascal, Cap • Programmation et 

ZX 81 , musique et ligures géomé- 
triques sur Apple?, programmer 
plus vile sous CP/M en Z 00 (I); 
les fantômes du Commodore 64 
II), un explorateur sur Vie 20, 
Othello sur TRS 90 et IBM PC, 
casse-briques sut Pet de CBM • 
Les banques de données. 



s'initier à Logo (I) ; le langage 
Logo sur Atom; un problème de 
physique ; des équations à géo- 
métrie variable: EAO: les trois 
didacticiels • Esss.s Minai 
mhda 2HR, Jupi- 
ter Ace. Prestige Challenger; 
Calc-Rasult. Pertect Writer, Su- 



!ll);lesZworksàOrionpolis 
FIS, P'Ti Man sur Tl 99/4A. 
le Yam avec un ZX 81, le 



j langages; cl 

sir votre bibliothèque CP/M ; p 
grammer tacitement en asst 



Ljaviran « essais :anârpm£iju, 
Sanyo PHC 25, Tandy 100; 
ValkSttriter, Omnis •Program- 
mation et jeu* : horloge sur Vie 20 
ou Clic, hejectoire st. HtlMC 
programme; plus vile sous CP/M 
en ZB0 (III); les fantômes du 
Commodore 64 (II), sharfciAs. tu 
ZK 81 , l'Enlerpise sur TFIS 80 • 



BON DE COMMANDE 

à retourner à L'ORDINATEUR INDIVIDUEL (Service Numéros), 39 rue de la Grange-aux-Belles, 75484 Paris Cedex 10 accompagné de votre règlement. 

Mnm - -_ — . Prénom . — - — 



Pays_ 



. code postal _ 



Ville _ 



veuillez me faire parvenir les 4 numéros suivants (cochez les numéros choisis): en'-ioi t n èaiement de 66 FF 

@0@@@0@@[ic][S][i]@ &ll FÏ' Be,9 "" ,e535Fa 




-&##* 



p° 



Abonnez-vous 

3 l'i U ORDINATEUR 
II— Il INDIVIDUEL 



Pour être certain de ne manquer aucun numéro, abonnez-vous. 

Vous recevrez tous les mois L'ORDINATEUR INDIVIDUEL chez vous. 

Et nous vous offrons en plus de faire une économie importante. 

En nous retournant le bulletin-réponse ci-dessous, 

vous paierez 198 FF pour 11 numéros au lieu de 242 FF 

et vous recevrez en cadeau deux numéros à choisir à la page ci-contre. 



BULLETIN A RETOURNER AUJOURD'HUI MÊME 
à L'ORDINATEUR INDIVIDUEL service abonnements, 39 rue de la Grange aux Belles, 75484 Paris Cedex 10 

Nom Prénom 



@ § ; H,g,g @ 8 S §, [a]„:g.@ 



Le service lecteurs de L'Ordinateur 
Individuel permet d'obtenir, des orga- 
nismes et sociétés, des informations 
complémentaires sur leurs activités et 
sur leurs produits. Les informations 
contenues dans la rubrique Quoi de 
neuf du Magazine de l'informatique 
pour tous sont référencées dans l'in- 
dex ci-contre ; celles des publicités 
dans l'index ci-dessous. Utilisez la 
carte réponse page 1 1 en cerclant les 
références des informations, rédac- 
tion ou publicité, qui ont retenu votre 
attention. 



service lecteurs 



SL 


Société 


Page 


SL 


Société 


Page 


im 




63 


103 


Micro expansion 


174 


11B 


CF2E 


163 


119 


PME Computer 




104 


Esc Marseille 


10 


106 


PSI Diffusion 




11? 


Hercet micro informalique 


100 


113 


Run Informalique 




101 


La commande électronique 


2 


11b 


Saari 




un 


La librairie informatique d'aujourd'hui 




110 


Sémaphore Consultant 


89 


m 


UScool 










m 


L'ordinateur de poche 


3 


114 


Vidéo Tetemate Report 


169 


102 


L'ordinateur personnel 




111 


ZH Compulei 






La collection complète, les anciens 
numéros et les dernières parutions de 

: ORDINATEUR 
lj INDIVIDUEL 

sont disponibles à la 

LIBRAIRIE INFORMATIQUE D'AUJOURD'HUI 

253, rue Lecourbe, 750IS Pjiris - Métro: Convention ou Boucicaut, ouvert du lundi au samedi de 9 h 
Pour toutes précisions sur la société ou le produit présenté ci-dessus : Référence 1 1 8 du service-lecteurs (page 172) 




LA MICRO-INFORMATIQUE AU SERVICE DES PME 
^Cippkz 

^cippkz 



£cippkz 

Q^CipplG 

Qgcipplc 



Système d'exploitation : Ordinateur APPLE - 2 Floppy - Une imprimante série ou parallèle. 



PME ADRESSES* 



A NOTER : 

■ Divers mo 
adresses e 
• Fichier adresses a 



c No de téléphor 



PME AMORTISSEMENTS * 



A NOTER : 

• Calcul des plus ou moin 

• Etiquettes auto-adhésivi 
fication physique des ir 

• Changement ancien / 
Comptable sans modifie; 



PME COMPTABILITE * 

- 2500 écritures par 2 disquettes 



A NOTER : 

• Incorporatio 



xploitation sim 
J lan Comptable 



Option disque dur en mono ou multiposte. Documentation sur demande et démonstrî 
PME COMPUTER S.A. - 18, rue Botzaris 75019 PARIS -Tél. : 241.6C 

' MARQUE DEPOSEE 



Pour toutes précisions sur la société ou le produit présenté ci-dessus : Référence 1 1 9 du service-lecteurs (page 1 72) 



Le guide des nouvelles 
solutions informatiques 




20FF chez votre 
marchand de journaux 



Disques durs 
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AK MICRO-6XPANSION 

m 9 5 Place Mal Lvautey - 69006 - LYON -Tél(7) 893.00 42 



La Référence!! 
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c sauvegardes 



Pour toutes précisions sui 



j le produit présenté ci-dessus : Réfèrent 



